ae 


—————————————————————eE 


DDDDDDDDDDDD 
DDDDDDDDDDDD 


DODDDDDDDDDD 
DDD DOD 


DDDDDDDDDODD 
DDDDDDDDDODD 


) DDD 
DDDDDODDDDDD 


ee 
as oe Oe 
mmm 


ee ae ns Oe ee Bes De Be Be es Od Bd ne Bd Bs Bo Oa bane Be ee eo 
ee eee ee 
Ge cin ey en Deeg Ee bet Oe Lee es Bs Dene ne Oe Dee Pd Ge bd ee Gt 
MMMMMMMMMMMMMMMenMMMmrmnceniecry 
MMMM MMMMMMMMMMMmMmMmnenicrniey 
MMMMMMMMMMMMMMMMMMmmMencnicny 


BBS SSSSVSSESSSS IE 


L 8 


| **F ILE**1D©*DMDRIVER 
DDDDDDODD la MM DDDDDDDD RRRRRRRR ITIII1 vv VV EEEEEEEEEE RRRRRRRR 
DDDDDDDD as MM DDDDDDDD RRRRRRRR III] VV VV EEEEEEEEEE RRRRRRRR 
dD MMMM MMMM «(DD DD RR RR II vv vw EE RR RR 
dd DD MMMM MMMM DD DD RR RR II vv vw EE RR RR 
dO DD mM MM DD DD RR RR Il VV vw EE RR RR 
dD DD MM MM MM «(ODD DD RR RR I] vv vw «EE RR RR 
dD DD MA MM DD DD RRRRRRRR I] VV VV EEEEEEEE RRRRRRRR 
dD DD MM MM DD DD RRRRRRRR II VV VV EEEEEEEE RRRRRRRR 
oD DD MM MM DD DD RR RR Il VV vw EE RR RR 
dD La MM DD DD RR RR I! vv vw EE RR RR 
0D DD MM MM DD DD RR RR I] VV WV EE RR RR eee 
dd DD MM MM DD DD RR RR I! vv VV EE RR RR cece 
DDDDDDDD al MM DDDDDDDD RR RR IIIII1 VV EEEEEEEEEE RR RR eeee 
DDDDDDDD MM MM DDDDDDDD RR RR T1111 VV EEEEEEEEEE RR RR eeee 
LL T1111] SSSSSSSS 
LL M111! SSSSSSSS 
LL I] $$ 
LL I] $$ 
LL I] S$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] $$ 
LL I] $$ 
LL I] $s 
LELLLLLLLLE M1111 SSSSSSSS 
LELLLLLLLL PERSE: SSSSSSSS 


| 
i 
PERE ATi Niece ee cc Ohad ie NI Saas REO BEE EE SE 


< 


15-SEP-1984 23:47:21 


DMDRIVER = RK611-RK06/RKO7 DISK DRIVER 

Table of contents 
(1) 401 RK611-RK06/RKO7 a Na DECISION TABLE 
(1) 4 ies! EVEN ext ¢ 
(1) 1 ht A ERA 
(1) 7 RK611°RKO6/RKO7 HARDWARE FUNCTION EXECUTION 
(1) 1374 RK611-RKO6/RK 4 C Apsite DRIVE TYPE AND SET PARAMETERS 
(1) at RK611-RK06/RKO7 REGISTER DUMP ROUTINE 
(1) 144 RKOG/RKO? DISK_DRIVE INITIALIZATION 
(1) 1 3 RK611-RK06/RKO7 UNSOLICITED INTERRUPT ROUTINE 
(1) 1 WAIT FOR CONTROLLER READY 
(1) 154 RK611 DISK CONTROLLER LH Seg DISPATCHER 
(1) 1 RK611 DISK CONTROLLER INITIALIZATION 
(1) 16 RK611 Autoconfigure Unit Delivery Routine 


VAX/VMS Macro v04~-00 


Page 


0 


n 8 
DMDRIVER = RK611-RKO6/RKO7 DISK DRIVER 15*SEP=1984 23:47:21 VAX/VMS Macro V04- p 
v04 ~SeerI SRS BaiFbi8 PANIES See Soaveives.mans1 “28 


TITL MDRIVER = RK611-RKO6/RKO7 DISK DRIVER 
ENT *vO4=000" coef 


MARRBRAARALALAAALALELALLALL ALLA S ELAR ERE A SEERA LARA AEA RRR AAA AAA RAR A AAA AAAS | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
& 
e 
* 
a 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  * 
ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. . 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
CORPORATION. * 
® 
+ 
® 
& 
® 
® 


DIGITAL ASSUMES NO RESPONS ee 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S$ NOT SUPPLIED BY DIGITAL. 


eaeeseneneeeeeneeeneeneeeaeneane 
—_ 
= 


-eeeeeeeeeeeereeeeeeereereeenereeeeneeeKeeeeeeeeeeeeeeenerereereeerereeerete 
D. N. CUTLER 12-MAR-77 
MODIFIED BY: 


v03-011 RASO300 Ron Schaefer 27-Apr-1984 
Add DEVSM_NNM characteristic to DECHAR2 so that these 
devices will have the ‘‘node$"’ prefix. 


v03-010 PRDO066 aul R. DeStefano 24-F eb-1984 
a dify DMSINT, RETREG. and DM_UNSOLNT to compensate for 
e RK611 controller's failure to properly set/clear 
oe valid bit in drive status register. 


v03-009 yencees Bill M 22-Feb-1984 
a MOVL IDBSW uNITSeR } RO to be a MOVZWL IDBSW_UNITS(R3) ,RO 
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43 Ay voustas GET_URIT 
45 v03-008 PRDO045 aul R. beStefano 11-Jan-1984 
? Fix BBS a, in DEVICE TIME OUT routine. 
4 v03-007 PRDOO32 aul R. DeStefano 09-Sep-1983 
0 4 Added EKESLCLDSKVALID to function decision table. 
v03-006 ROW0211 Weber 16-AUG-1983 


Change dev icendependent “uce Setinition base from UCBSW_BCR+2 
to UCBSK_LCL_DISK_LENGTH. 


v03-005 ~- Paul R. DeStefano 06-May-1983 
tied me yore re routine to attempt to clear a oe len 
meat condidtion 
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v03-004 PRDOO19 aul R, DeStefano yy age 
Modi fied FATALERR” routin to return SS$_PARITY only for 
errors that Rich tot ndicate bad media. All other error 
See CNICE ons A ich formerly returned SS$_PARITY now return 
v03-003 PRDOO16 Paul R. DeStefano 26-Apr-1983 


Modified ECC correction 2 Bare so that ECC is” only applied 
when there is single ECC correctable error, or if there 
is a multiple bit etc gh ass error and the error cannot 
be corrected using retries. 


v03-002 «k ye hleen D0. Morse 28-Jun-1982 
ei OCDEF, SDYNDEFS SPRDEF, and $SSDEF. 
v03-001 KTA0100 erbey T. Altmann 07-Jun-1982 


Add code to set UCBSL YMEDIA. ID. 
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ees et 7 83:75:%3 DRIVER. SRCJDMDRIVER.MAR; 1 art v04 
1 ; RK611-RKO6/RKO7 CONTROLLER REGISTER OFFSETS 
1 o 
140 SDEFINI RK 
146 SDEF  RK_CS1 .BLKW SCONTROL STATUS REGISTER 1 
14 _VIELD RK_CS1,0,<= : CONTROL STATUS REGISTER 1 FIELD DEFINITION. 
144 M>,- : 60 BI 
145 <F COBE ,4>,- + FUNCTION CODE 
146 <DPPE, ,M>,= + DATA PATH PURGE ERROR 
14 <IE,,M>,° + INTERRUPT ENABLE 
148 <RDY, .M>,= + CONTROLLER READY 
14 <MEX.3>,= : MEMORY EXTENSION BITS | 
00 130 <CDT, ,.M>,= : CONTROLLER DRIVE TY 
151 <CT0,,M>,= : CONTROLLER TIME OUT 
13¢ <CFMt, .M>,- + CONTROLLER FORMAT ERROR | 
15 <SPAR,,M>,= t SERIAL BUS PARITY ERROR | 
02 154 <D1,,4>,- t DRIVE INTERRUPT 
13 <CERR, ,M>= : CONTROLLER ERROR | 
00 139 SDEF  RK_WC .BLKw SWORD COUNT REGISTER | 
006 158 SDEF § RK-BA “BLKW 1 SBUFFER ADDRESS REGISTER 
006 159 $SDEF § RK7DA BLKw 1 [DESIRED SECTOR/TRACK ADDRESS REGISTER | 
008 160 _VIELD RK_DA,0,<= : DESIRED ADDRESS FIELD DEFINITIONS | 
008 161 <Sk,5>,- > DESIRED SECTOR ADDRESS 
00 166 <,3>,° ; RESERVED BITS 
00 168 r <ta, $>- : DESIRED TRACK ADDRESS | 
999 165 SDEF RK_CS2 .BLKW 1 SCONTROL STATUS REGISTER 2 
000A 166 _VIELD RK C§2.0,<- : CONTROL STATUS REGISTER 2 FIELD DEFINITION 
OOA 16 <0S,3>.- : DRIVE SELECT | 
168 <RLS,,M>,= : RELEASE DRIVE 
169 <BAI, .M>,- | BUFFER ADDRESS INCREMENT INHIBIT 
170 <SCLR,.M>,- : SUBSYSTEM CLEAR 
171 <IR, ,M>,° > INPUT READY | 
76 <OR,,M>,- : OUTPUT READY 
17 <UFE, ,M>,= + UNIT FIELD ERROR 
174 <MDS,,M>,= : MULTIPLE DRIVE SELECT | 
175 <PGE,.M>,- t PROGRAMMING ERROR 
17% <NEM, .M>.- + NONEXISTENT MEMORY 
17 <NED,,M>,= > NONEXISTENT DRIVE | 
178 <UPE, ,M>,= : UNIBUS PARITY ERROR | 
17 <WCE,.M>,= : WRITE CHECK ERROR | 
0 <DLT. .M>- : DATA LATE ERROR 
> ; 
1 3 SDEF  RK_DS .BLKW 1 SDRIVE STATUS REGISTER 
1 _VIELD RK_DS,0,<- t DRIVE STATUS REGISTER BIT DEF INTIONS 
184 <DRA,,M>.- + DRIVE AVAILABLE 
185 1>.- > RESERVED BIT 
1 6 <OFSf,.M>.- : DRIVE OFFSET 
1 <ACLO,.M>,= : DRIVE AC LOW 
1 b <DCLO,.M>,= : DRIVE DC LOW 
1 9 <vWV,,@>,° : VOLUME VALID 
19 <DROY, ,M>,- : DRIVE READY 
136 <DOT,,.M>,- : DRIVE DRIVE TYPE 
19 <,2>.° > RESERVED BITS 


= RK611-RKO6/RKO7 DISK DRIVER 15-SEP-1984 23:47: AX/VMS Macro v04-00 Page 
. oat} 83:75:84 YORIVER. SREIDMDRIVER.MAR: 1 . a) 
¢ 194 <WRL,,M>,= : DRIVE WRITE LOCKED 
¢ 195 1>,- : RESERVED BIT 
¢ 196 <bIP; M>,= ; POSITIONING IN PROGRESS 
¢ 19 <DSC,,M>,= : DRIVE STATUS CHANGE 
¢ 198 : <SVAL, ,M>= ; DRIVE STATUS VALID 
¢ 0 SDEF RK_ER -BLKw 1 TERROR REGISTER 
E 1 LVTELD RK_ER,0,<= : ERROR REGISTER BIT DEFINITIONS 
3 j <ICF,,M>,- : ILLEGAL FUNCTION 
E <SKI,,M>,- 3 SEEK INCOMPLETE 
OE 4 <NXF, .M>,= 3 NONEXECUTABLE FUNCTION 
OF 5 <DRPAR, ,M>,= : DRIVE PARITY ERROR 
E : <FMTE,.M>,= + FORMAT ERROR 
OE <DTYE,,M>, + DRIVE TYPE ERROR 
O0E § <ECH,,M>,= : ECC HARD ERROR 
O0E <BSE,,M>,- : BAD SECTOR ERROR 
00E 210 <HVRE, ,M>, = + HEADER VRC ERROR 
4 11 <COE,.M>,- ; CYLINDER OVERFLOW ERROR 
OE 1 <IDAE, ,M>,= : INVALID DISK ADDRESS ERROR 
OOE 1 <WLE,,M>,= ; WRITE LOCK ERROR 
OOE 14 DTE,,M>,= : DRIVE TIMING ERROR 
OOE 15 <OPI,,M>,= : OPERATION INCOMPLETE 
O0E 16 <UNS, ,M>,= ; DRIVE UNSAFE 
oe , <DCK, ,M>= : DATA CHECK ERROR 
00 18 SDEF RK_AS vw 1 ‘ATTENTION SUMMARY/OFFSET REGISTER 
01 0 _VIELD RK AS.0,<- : ATTENSION SUMMARY/OFFSET REGISTER FIELDS 
01 1 <OF ,7>,- : DRIVE OFFSET 
01 : <,1>,° : RESERVED BIT 
91 ; <ATTN,8,M>= : DRIVE ATTENTION SUMARY 
0010 5 SDEF oC -BLKW 1 [DESIRED CYLINDER ADDRESS 
01 $ SDEF RK-SPR -BLKW 1 [UNUSED REGISTER 
or SDEF “0B -BLKW 1 :DATA BUFFER REGISTER 
1 g SDEF RK-MR1 -BLKW 1 sMAINTENANCE REGISTER 
01 VIELD RK_MR1,0,<<MS,3>> : MAINTENANCE REGISTER 1 FIELD DEFINITION 
01 0 SDEF RK_EC1 .BLKW sECC POSITION REGISTER 
1A 1 VIELD RK_EC1,0,<<EPS,13>> : ECC POSITION FIELD 
1A é SDEF RK_EC -BLKW SECC PATTERN REGISTER 
1¢ VIELD RK_EC2,0,<<EPT,11>> 3 ECC PATTERN FIELD 
1¢ 4 SDEF RK_MR -BLKW 1 sMAINTENANCE REGISTER 3 
1 5 SDEF RK-MR .BLKw 1 SMAINTENANCE REGISTER 
03 ; SDEFEND RK 
4 3 SOFTWARE STATUS IN UPPER BYTE OF OFFSET WORD 
4 £ 
8 _VIELD 0M,0,<- sSOFTWARE STATUS BIT DEFINTIONS 
ry, <ECI. M>,- > ECC INHIBIT 
45 <DCK, ,M>= > DATACHECK IN PROGRESS 
46 <ECC{OEFER,.M>, - : Flag to indicate that ECC correction 
4 > ; has been deferred until offset 
$8 : retries are exhausted. 
50 ; 
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; DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 


: SDEFINI UCB 
§ -*UCBSK_LCL_DISK_LENGTH 


SDEF  UCBSW_DM_DTYP .BLKw 
SDEF  UCBSWIDM"CS1 ©. BLKW 
60 SDEF UCBSW“DM7WC :BL 
61 SDEF  UCBSW"DM~BA “BLKW 
¢ $0EF UCBS¥-DM_DA “BLKW 
DEF  UCBSWIDM"CS2  -BLKW 
SDEF UCBSWIDM~DS “BLK 
5 SDEF  UCBSWTOMTER “BLKW 
66 $DEF UCB SW“DAAS -BL 
67 SDEF  UCBSW"DM~DC ; 
G8 $DEF = UCBSW_DR-AR] 
69 $DEF —UCBSW_DR_MR SBLKW 
SDEF  UCBSWIDM~MR ; 
71 $DEF  UCBSWIDM“DPN 
72 SDEF  UCBSLDM~OPR LKL 
73 SDEF 


UCBSW_DM_DB -BLKW 
UCB$B- DM" IND -BLKB 
-VIELB 6M_IND,0,<- 

7 <OF, ,M>= 


> 
SDEF UCBSL_DM_FRS ~BLKL 
-BLKB 


UCBSK_DM_LENGTH=. 
SDEFEND UCB 


F_NOP=0e2 
FIUNLOAD=3#2 
FTSEEK=7* 
4 FIRECAL=5#2 
F-DRVCLR=2*2 
96 FIRELEASE=082 
97 FTOFFSET=6%2 
98 FIRETCENTER=G#2 
F"PACKACK=1¢ 
F-STARTSPNOL=4*2 
FIURITECHECK= 1282 
¢ EURITEDATA=9s 
FWRI TEHEAD= 1182 
4 FTREADDATA=8¢ 
5 FTREADHEAD=10¢2 
¢ FIAVAILABLE=F NOP 


ON BG BB aS 8 et nnd 2 4 A nd 3 ad 8 2 tt 


oe 


3; Establish device-dependent base 


DRIVE TYPE MASK 
; CONTROL SrA 


ITIONS 


[FINAL REQUEST STATUS 
?SPARE USED BYTE 


3NO OPERATION (SELECT DRIVE) 
UNLOAD DRIVE 
sSEEK CYLINDER 

IBRATE 


sRECAL 

sORIVE CLE 

sRELEASE DRIVE 

OFFSET HEADS 

RETURN TO CENTERLINE 
;PACK oN ah 
START SPINDL 

WRITE CHECK DATA 
sWRITE DATA 

sWRITE oer AND DATA 
sREAD DATA 

READ HEADER AND DATA 
DRIVE AVAILABLE (a NOP) 


Page 
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: LOCAL DATA 
: DRIVER PROLOGUE TABLE 


—OOe 


DPTAB = 
END=0M_END,- 
ADAPT PTER= ReuBh< - 
FLAGS=D 
uCBSIZE=U asi utr LENGTH, 


DEFUNITS= 
BEL IVER=ORGDELIVER, ° 
NAME =DMD 
DPT TOR — INIT 


Oo 


DPT“STORE boB. L“ACpD* 
DPT“STORE U Matte FIPL 
DPT“STORE EUeeUCBBL “bevehar L.- 


F hte eh tek ek ek tek del eke ae ek 


NOAA 2 ONAN WI SO ODNOA UNE WW OOOO UNE Ut 
4 
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sper ing DRIVER PROLOGUE TABLE 
sEND OF oy ye" 

ZADAPTER 

3SYSTEM PAGE. Bs ENTRY REQUIRED 


sDe fault’ aA of AUTOCONFIGURE units 
i AUTOCONE I GURE units delivery routine 


BLOCK INIT VALUES 


DPT-STORE DDB, DDBSL ACPD. 5 casei arert ACE NARE 
a e iF PL 


DEV vice Gh re jhe 
DIREC TORY STRUCTURED 
ERROR LOGGING ENABLED 
HAREABLE 


a 3 


tt eeeeeeteteertetens 
nw” 


0 
0 
0 
ve 
iDEVSM"1DV- T 
0 i EVER. DV OUTPUT DEVICE 
0 i DEVSM~RND> DOM ACCESS 
0 DPT_STORE E ue .Oces ,0cBs _DEVCHAR2,L.-: DEVICE CHARACTERISTICS 
0 PREFIX NAME WITH ‘‘node$"’ 
05 DPT_STORE vice Ocese.. DEVCLASS "yest DISK ;DEVICE CLASS 
06 DPT “STORE UCB. UCBSU-DEVBUF $1 ig 12 ;DEFAULT BUFFER SIZE 
DPT“STORE U UCBSB_SECT 5° NUMBER OF SECTORS PER TRAC 
6 DPT-STORE vee UE $B TRAC ee i ;NUMBER OF TRACKS PER CYLINDER 
DPT“STORE UCB .UC $B-DIPL. | [DEVICE IPL 
6 DPT“STORE UCB, UCBSB_ERTCN :ERROR RETRY COUNT 
06 DPT“STORE UCB,UCBSB_ERTMA X ERROR RETRY COUNT 
0 DPT“STORE REINIT ONTROL BLOCK RE-INIT VALUES 
7 DPT“STORE CRB, CRBSL_INTD+4,D » ons ice INTERRUPT rei al ROUTINE ADDRESS 
7 DPT“STORE CRB.CRBSL— INTDsveCse INITIAL ,D 1 INIT sCONTROLLER INIT 
? DPT“STORE CRB.CRBSL_INTD+VECSL_UNITINIT ae “INIT SUNIT INIT 
: g DPT“STORE DDB.DDBSL-DDT.D.DMSOBT ;DDT 15,08 
ut ; DPT“STORE END ; 
13 
§ z ORIVER DISPATCH TABLE 
4 o 
5 DDTAB DM, - :DRIVER DISPATCH TABLE 
5 DM! STARTIO,= [START 1/0 OPERATION 
DM“UNSOLNT.- {UNSOLICITED INTERRUPT 
8 BR “FUNCTABLE,- ZEUNC ION DECISION TABLE 
: CANCEL 1/0 ENTRY POINT 
6 DA_REGDUMP REG! STER DUMP ROUTINE 
<<2RK_MR +344 >* seastels >#4>>,- SIZE OF DIAGNOSTIC BUFFER 
; <<<RK"MR3 42-4 48>22>4<184>+<EMBSL_DV_REGSAV>> ;SIZE OF ERROR BUFFER 
4; 


meth 
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4A 
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5 
54 
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5 

5 

05 

05 

05 

05 

00 005 

10 005 
90 OO05A 
20 0058 
AQ 5C 
30 0050 
0 bee 
; SF 
000000 060 


SEP=19 
¢ ; HARDWARE 1/0 FUNCTION CODE TABLE 


FTAB: 


> OFFSET TABLE FOR RK611-RK06/RKO7 


OFF TAB: 


FW O COONAN  O ONO UNE Wi "0 0 
3) 
m 
2 
nm” 


OOOO OOOO OW W009 09009090908 SINISE NS NNNOO Om 
CONOW NO 


“mmmmmmmncn 
» 
a 
> 
oO 


> 
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ref 


3NO OPERATION 
;UNLOAD VOLUME 
sSEEK CYLINDER 
eOaiee fread 
sDRIVE CLEAR 
sREL EASE PORT 
sOFFSET HEADS 
sRETURN HEADS TO CENTERLINE 
PACK ACKNOWL 
;START SPINDL 
sWRITE CHECK 
sWRITE DATA 


READ HEADER 
DRIVE AVAILABLE 


RN TO CENTERLINE 


nc ooCooooc 
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4 ee .SBTTL RK611-RKO6/RKO7 FUNCTION DECISION TABLE 
4 § + RK611-RKO6/RKO7 FUNCTION DECISION TABLE 
405 ° 
4 : DM_FUNCTABLE: :FUNCTION DECISION TABLE 
60 4 FUNCTAB ,- SLEGAL FUNCTIONS 
60 4 : <NOP, - [NO OPERATION 
4 UNLOAD, = [UNLOAD VOLUME 
60 410 SEEK,= ‘SEEK CYLINDER 
60 411 RECAL,= TRECALIBRAT 
6 aie DRVCLR,= [DRIVE CLEAR 
60 41 RELEASE, = SRELEASE PORT 
60 414 OFFSET, - TOFFSET HEADS 
060 415 RETCENTER,= SRETURN HEADS TO CENTERLINE 
06 416 PACKACK,= [PACK ACKNOWLE 
é 41 AVAILABLE, = [DRIVE AVAILABLE 
0 418 STARTSPNDL,=- SSTART SPINDLE 
060 41 SENSECHAR, - ?SENSE CHARACTERISTICS 
060 420 SETCHAR, = [SET CHARACTERISITCS 
060 421 SENSEMODE ,- SSENSE MODE 
060 4 ; SE TMODE ,- [SET MODE 
0 4 WRITECHECK,- ‘WRITE CHECK 
426 WRITEHEAD,- [WRITE HEADERS 
425 READHEAD , = [READ HEADER 
4 6 READLBLK.= TREAD LOGICAL BLOCK 
4 WRITELBLK,= ‘WRITE LOGICAL BLOCK 
428 READPBLK, - TREAD PHYSICAL BLOC 
429 WRITEPBLK,- [WRITE PHYSICAL BLOCK 
430 READVBLK, - SREAD VIRTUAL BLOCK 
431 WRITEVBLK,=- ‘WRITE VIRTUAL BLOCK 
4 ; ACCESS, = SACCESS FILE AND/OR FIND DIRECTORY ENTRY 
4 ACPCONTROL,- SACP CONTROL FUNCT 
434 CREATE,- SCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
435 DEACCESS, = SDEACCESS FILE 
4 6 DELETE,- ‘DELETE FILE AND/OR DIRECTORY ENTRY 
4 MODIFY.= [MODIFY FILE ATTRIBUTES 
438 UNT> :MOUNT VOLURE 
439 FUNCTAB ,- [BUFFERED 1/0 FUNCTIONS 
440 OP,- [NO OPERATION 
441 UNLOAD, - [UNLOAD VOLUME 
44g SEEK,=- ?SEEK CYLINDER 
44 RECAL,= TRECALIBRATE 
444 DRVCLR,- :DRIVE CLEAR 
445 RELEASE ,- TRELEASE PORT 
‘ OFFSET, - TOFFSET HEADS 
4 RETCENTER,- SRETURN HEADS TO CENTERLINE 
8 PACKACK,= [PACK ACKNOWLEDGE 
AVAILABLE, = SDRIVE AVAILABLE 
: STARTSPNDL,= [START SPINDLE 
SENSE CHAR, - : SENSE CHARACTERISTICS 
; SETCHAR, = [SET CHARACTERISITCS 
SENSEMODE ,- [SENSE MODE 
4 SE TMODE ,- :SET MODE 
5 ACCESS, - TACCESS FILE AND/OR FIND DIRECTORY ENTRY 
6 ACPCONTROL,- SACP CONTROL FUNCTION 
CREATE,= [CREATE FILE AND/OR CREATE DIRECTORY ENTRY 
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6 458 DEACCESS,=- : DEACCESS FILE 
4 DELETE,- SDELETE FILE AND/OR DIRECTORY ENTRY 
6 460 MODIFY.= SMODIFY FILE ATTRIBUTES 
6 4 MOUNT> : MOUNT VOLUME 
46 FUNCTAB DM_BYTECNT,- SEVEN BYTE COUNT REQUIRED FUNCTIONS 
70 «46 <READHEAD , = TREAD HEADER 
70 464 READLBLK,=- TREAD LOGICAL BLOCK 
70 465 READPBLK,=- TREAD PHYSICAL BLOCK 
70 46 READVBLK,=- TREAD VIRTUAL BLOCK 
70 46 WRITECHECK,= SWRITE CHECK 
70 46 WRITEHEAD,- SWRITE HEADERS | 
7 4g WRITELBLK,- :WRITE LOGICAL BLOCK 
70 470 WRITEPBLK,- [WRITE PHYSICAL BLOCK 
70 «471 WRITEVBLK> [WRITE VIRTUAL BLOC 
7¢ 47g FUNCTAB +ACPSREADBLK,- TREAD FUNCTIONS 
ore 47 <READHEAD, = [READ HEADER | 
7 7% READLBLK,= SREAD LOGICAL BLOCK 
7 475 READPBLK.-= TREAD PHYSICAL BLOCK | 
7 476 READVBLK> TREAD VIRTUAL BLOCK 
B8 47 FUNCTAB +ACP$WRITEBLK,- [WRITE FUNCTIONS 
0 478 <WRITECHECK,= SWRITE CHECK | 
47 WRITEHEAD, - ‘WRITE HEADERS 
00 480 WRITELBLK,- [WRITE LOGICAL BLOCK 
008 481 WRITEPBLK,=- sWRITE PHYSICAL BLOCK 
088 4 é WRITEVBLK> “WRITE VIRTUAL BLOCK | 
094 4 FUNCTAB *+ACPSACCESS.<ACCESS,CREATE> ;ACCESS AND CREATE FILE OR DIRECTORY 
OAO 484 FUNCTAB +ACP$DEACCESS,<DEACCESS> ;DEACCESS FILE 
OAC 485 FUNCTAB *ACPSMODIFY,- ; 
OOAC 48 <ACPCONTROL.- SACP CONTROL FUNCTION 
OOAC 48 DELETE,- SDELETE FILE OR DIRECTORY ENTRY 
OOAC 488 MOD IF Y> [MODIFY FILE ATTRIBUTES 
0088 489 FUNCTAB +ACPSMOUNT,<MOUNT> sMOUNT VOLUME 
0C4 490 FUNCTAB +EXESLCLDSKVALID,- SLOCAL DISK VALID FUNCTIONS 
0C4 491 <UNLOAD, = [UNLOAD VOLUME 
0C4 49 AVAILABLE, = [UNIT AVAILABLE 
0C4 49 PACKACK> [PACK ACKNOWLEDGE 
0000 494 FUNCTAB +EXESZEROPARM, - [ZERO PARAMETER FUNCTIONS 
000 495 <NOP, = [NO OPERATION 
000 496 UNLOAD, = SUNLOAD VOLUME 
9p 497 RECAL,- SRECALIBRATE 
DO «498 DRVCLR,= SDRIVE CLEA 
D0 6499 RELEASE ,- SRELEASE PORT 
D 0 RETCENTER, SRETURN HEADS TO CENTERLINE 
D 1 STARTSPNDL,- [START SPINDLE 
D : CKACK,= [PACK ACKNOWLEDGE 
D0 AVAILABLE> [DRIVE AVAILABLE 
DC 4 FUNCTAB *EXESONEPARM, - TONE PARAMETER FUNCTIONS 
ye 5 <SEEK,= [SEEK CYLINDER 
D 4 OFF SET> [OFFSET HEADS 
£ FUNCTAB +EXESSENSEMODE , - F 
E : <SENSE CHAR, = :SENSE CHARACTERISTICS 
E SENSEMODE> [SENSE MODE 
Fe 510 FUNCTAB +EXESSETCHAR,- : 
OF4 11 <SETCHAR, = [SET CHARACTERISTICS 
Fe 512 SE TMODE> [SET MODE 
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16 : .SBTTL TEST EVEN BYTE COUNT 
| 1 ; DM_BYTECNT = TEST EVEN BYTE COUNT 
1 18 : THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO CHECK 
1 19 : THAT THE NUMBER OF BYTES TO BE TRANSFERED IS EVEN AS THE RK611 HAS A WO 
: ? ; COUNT RATHER THAN A BYTE COUNT REGISTER. 
; : INPUTS: 
1 4: RO = SCRATCH. 
1 5: Ri = SCRATCH. 
1 6 : R2 = SCRATCH. 
1 : R3 = ADDRESS OF 1/0 REQUEST PACKET. 
1 8: R&4 = CURRENT PROCESS PCB ADDRESS. 
1 9: RS = ASSIGNED DEVICE UCB ADDRESS. 
1 0: R6 = ADDRESS OF CCB. 
1 1: R7 = 1/0 FUNCTION CODE. 
1 ; ; RB = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
1 : R9 = SCRATCH. 
1 4: R10 = SCRATCH. 
1 5; R11 = SCRATCH. 
19 6 ; AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
i ‘ : OUTPUTS: 
1 40 : THE BUFFER BYTE COUNT IS CHECKED FOR BEING EQUAL TO 0 MOD 2. IF THE CHECK 
10 41: FAILS, THEN THE 1/0 OPERATION IS TERMINATED WITH AN ERROR. ELSE A RETURN 
190 43 ; TO THE FUNCTION DECISION TABLE DISPATCHER IS EXECUTED. 
100 Sea 
19 45 DM_BYTECNT: F 
0106 AC 00 és 18 46 BBs #0,4(AP),10$ ;1F SET, ODD BYTE COUNT 
50 034 BF 3C 0106 ate 108: NOV ZUL #SS$_IVBUFLEN,RO :SET ODD BYTE COUNT STATUS 
00000000'GF 17 0108 549 G*EXESABORTIO. F 
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1 ; .SBTTL START 1/0 OPERATION 
| § $ STARTIO = START 1/0 OPERATION ON DEVICE UNIT 
5 : THIS ENTRY POINT IS ENTERED TO START AN I/O OPERATION ON A DEVICE UNIT. 
§ : INPUTS: 
1 § : RS = ADDRESS OF I/0 PACKET. 
69 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
§ : OUTPUTS: 
1 64: FUNCTION DEPENDENT PARAMETERS ARE STORED IN THE DEVICE uce THE ERR 
1 65 : RETRY COUNT IS RESET, THE FUNCTION IS EXECUTED. AT FUNCTION COMPLETION 
6 : THE OPERATION IS TERMINATED THROUGH REQUEST COMPLETE. 
1 68 * 
1 : DM_STARTIO: : START 1/0 oP ERATION 
1 0 MOVE  UCBSB_ERTMAX(RS) ,UCBSB_ERTCNT(R ANITIALIZE ERROR RETRY COUNT 
1 71 MOVW  IRPSWIFUNC(R3) ,UCBSW_FONC(RS) ;SAVE FUNCTION CODE AND MODIFIERS 
A 1 7 MOVL IRPSU-MEDIACRSS RO GET piRAMETER LONGWORD 
FA ¢ ? CLRB  UCBSB-DM_IND(RSS ;CLEAR SOFTWARE INDICATOR BYTE 
4 BA 74 BICB #0M_M-ECC_DEFER,- ; Clear flag used to signal ECC 
00c9 ¢5 75 UCBSW~OF FSET+1(R5) : correction deferred. 


? : MOVE FUNCTION DEPENDENT PARAMETERS TO UCB 


0 
06 09 EF 1108:  €XTZV #1RPsy FCODE ,#IRPSS_FCODE,- ;EXTRACT 1/0 FUNCTION CODE 
51 20A : IRPSW_FUNC(RS),R1 
51 91 cmpBtié# 08 SEEK.RI [SEEK FUNCTION? 
13 4 BEQL SIF EQL YES 

51 91 5 CMPB (ype: GRETURN HEADS TO CENTERLINE? 

5 13 6 BEQL $ FE 
51 4 cHPe tie OFFSET,R1 ZOFF SET FUNCTION? 

008¢ c5 g 00 5 MOVL CBSW_DA(RS) ‘Stone PARAMETER LONGWORD 

19 I 30 cHPB ; 16 _STARTSPNDL RI :Check for 10$_STARTSPNDL 
51 11 «91 9 CMPB ais, AVAILABLE ,R1 ‘708 AVAILABLE, the two function 

1D 12 32 BNEQ codes which have different he = 
51 OF 90 95 Hove #CDF_LAVAILABLE,R1 Map “T0$_ AVAILABLE to CDF _AVAILABLE. 
51 09 90 97 16$:  MOVB  #CDF_STARTSPNDL,R1 :Map I10$_STARTSPNDL to CDF_STARTSPNDL. 

13° «11 9 BRB 508 


1 $ SEEK FUNCTION = SET CYLINDER ADDRESS 


eS de " a5 50$ : 


me ee ee a ae ed a ed 2 od od od 


DPD DADA ANT BE BP PEE 


OOM ODOODOOD NH FTFS POUOMD OO & MW W WW W W COO nen Op tat at at st es ot 


6 
6 
6 
é 3 208: MOVU RO ,UCBSW_DC (RS) SET CYLINDER ADDRESS 
6 
6 
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D4 30$: CLRL 


40$: MOVB 
81SB8 


oS 


iii a a a a a a ai ia ka a a a et a “8 ss a a a a a es 2 os 


90 50$: MOVB 
AA BICW 
€1 BBC 

AB BISwW 


PPP PF OOOO O00 00 OW III NINO POP OOO AIA AAAS AAAS 


5333333333333333--SSee BEE H&E MPM M MMM ME BS MN MOOOO|O WHIM IMPIAIMNVIOOCVOCO 


FDISPATCH: 
dO MOVL 
EO BBS 

0 BBS 
C 6 MOVZWL 
1 6 BRwW 
640 
641 ; 
o6§ 
SHS fie on 
94 bc? CLRB 
9A 968 MOVZBL 
64 CASE 
i 
i 
h 654 
A6 655 
A6 6 § 
Ad 6 
A6 6 8 
: 6 
Sit 
SH 
A 


RO 
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: RETURN HEADS TO CENTERLINE FUNCTION = CLEAR OFFSET VALUE 


CLEAR OFFSET VALUE 


: OFFSET FUNCTION = SET CURRENT OFFSET VALUE 


RO,UCBSW_OFFSET(RS) -SET OFFSET VALUE 
#DRM_IND_M_OF,UCBSB_DM_IND(RS) ;SET OFFSET FLAG 
R1,UCBSB_FEX(RS) ;SAVE FUNCTION DISPATCH INDEX 
#ucesm ECC!- “CLEAR ECC CORRECTION MADE 
UCBSM_BIAGBUF ,UCBSW_DEVSTS(RS) ;DIAGNOSTIC BUFFER PRESENT 
#IRPSO_DIAGBUF ,IRPSO_STS(R3) FDISPATCH :IF CLR, NO BUFFER 
#UCBSM~DIAGBUF .UCBSW-DEVSTS(RS) ;SET DIAGNOSTIC BUFFER PRESENT 
sFUNCTION DISPATCH 
ucBst IRP(RS) ,R3 RETRIEVE ADDRESS OF 1/0 PACKET 
#IRPSU_PHYSIO. IRPSW_STS(R3),10$ ;1F SET, PHYSICAL 1/0 FUNCTION 
#UCBSV~VALID ycBsu_STS(RS) {0$ ;1F SET, VOLUME SOFTWARE VALID 
#338 VOLINV.R 7SET VOLUME INVALID STATUS 


ucB 


ucés 


Ry 


WR 
REA 


$W_OFFS 


5 OFFN 


ET+1(R5) 
dah a 
Dx (R5) 
$B_FEX(RS) RS 


TEHEAD, = 
DWEAD> 


REASS-SRSASArSs 


VAC 
=m mr 


P= PK PO ATH KOM NAMM 


o=30 4-4 Dx 


ae 


| UNIT IS SOFTWARE VALID OR FUNCTION IS PHYSICAL 1/0 


AND DATACHECK IN PROGRESS | 
OUNT 
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; WRITE CHECK DATA, WRITE HEADERS, AND READ HEAD 
WRITECHECK: sWRITE CHECK DATA 
WRITEHEAD: ;WRITE atte $s 
READHEA 


D: DER 
009A (5 4000 BF AA BICW #1LOSM_DATACHECK ,UCBSW_ running, te SPEAR DATA CHECK REQUEST 
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1¢ eee 
1¢ 6 $ ; AVAILABLE <= Mark volume not valid 
iC ‘ 
1¢ i AVAILABLE : RIVE AVAILABLE 
64 AS 0800 BF AA O1CB 67 Bicw sUCBSA _VALID, UCBSW_ s15(R5) yMark volume “invalid.” 
6— 11 + or¢ BRB 3 Peabtans 1/0 processing. 
10 674 ; 
19 org 3 UNLOAD <= Mark volume not valid 
1D 77° 
1D 678 UNLOAD: LOAD DRIVE 
64 AS 0800 oF AA 0100 67 BICW  #UCBSM_VALID, UCBSW_ s1s¢h3) :Mark volume "invalid." 
1 1 6 0 BRB EXEC_FONCTION : be hardware 1/0 operation. 
108 682: 
? $ 3; PACK ACKNOWLEDGE -- Mark volume valid 
1D Bs 
108 6 $ PACKACK: PACK ACKNOWLEDGE 
64 AS 0800 BF AB 0108 6 BISW #uUCBSM VALID. UCBSW_ s1s¢k5) :Mark volume "valid." 
1DE 6 3 : BRE EXEC_FONCT :Do hardware 1/0 operation. 
IDE 690 
1DE 691 : NO OPERATION, SEEK, RECALIBRATE, DRIVE CLEAR, RELEASE, OFFSET, 
IDE 69¢ : RETURN TO CENTER LINE, AND START SPINDLE 
1DE 694° 
1DE 695 NOP: 3NO OPERATION 
1DE 696 SEEK: 7SEEK CYLINDER 
1DE 697 RECAL: + RECALIBRATE 
1DE 698 DRVCLR: SDRIVE CLEAR 
1DE $9 RELEASE: SRELEASE PORT 
1DE 0 OFFSET: TOFFSET READ HEADS 
1DE 1 RETCENTER: sRETURN TO CENTERLINE 
1DE ; STARTSPNOL : sSTART SPINDLE 
1DE EXEC_FUNCTION: 
1DE 4 EXFUNCH 10$ sEMECUTE HOUSEKEEPING FUNCTION 
SA 1E¢ 5 es BRB NORMAL : 
0080 31 O1E4 BRw RETRY ; Use BRW since EXFUNCH only allows 
1€7 $ ; for byte offset. 
1€7 
1€7 
167 
165 
165 
1€7 
1€7 
1EE 
1€E 
1€E 
1EE 


SW 
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> WRITE DATA, WRITE CHECK DATA, WRITE HEADERS, AND READ HEADER 


10 
= RK611-RK06/RKO7 DISK DRIVER 15-SE 4 7:21 VAX/VMS Macro V04-00 Pa 
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1€—E 7 
1EE f : WRITEDATA: :WRITE DATA 
00c9 ¢S5_01s«i8B IE f é BISB #DM_M_ECI,UCBSW_OFFSET+1(R5) ;SET ECC INHIBIT 
iF , ' ; READ DATA, WRITE DATA, WRITE CHECK DATA, WRITE HEADERS, AND READ HEADER 
1F 759 ° 
1F 730 READDATA: READ ATA 
07 OO9MA CS §«6(0C) CEO OCOTF 731 BBS #10$V_INHSEEK,UCBSW_ FUNCTRS). TRANSE R ;IF SET, NO EXPLICIT SEEK 
iF 7 : EXFUNCH RETRY;F_SEEK ;SEEK DESIRED CYLINDER 
ae 
0 735 : DATA TRANSFER 
0689 
6 00 738 TRANSFR: :DATA TRANSFER REQUEST CHANNEL 
53 0092 CS) 9A : 739 MOVZ8L UCBSB_FEX(RS),R3 [GET FUNCTION DISPATCH INDEX 
020 740 EXFUNCL TRANXT sEXECUTE TRANSFER FUNCTION 
$509 ba 
5 09 tg i + DATA CHECK 
aes 
6 09 146 DATACHECK: CHECK 
2F OO9A CS OE § 09 7% BBC #IGSV_DATACHECK ,UCBSW_ rule (RS) NORMAL ;IF CLR, NO DATA CHECK 
0639 8F C O20F 748 MOVZWL #SS$_QASECC, ASSUME ECC CORRECTION WAS MADE 
27 009A CS. «—(00Ss«sEOs«0214=Ss 749 BBS #uCBSV ECC, 2UCBSu_ FUNC(RSS CHECKXT :1F SET, ECC CORRECTION MADE 
00c$ ¢5 «= (03) s« 90s «G21A—Ss 750 MOVE = #D CK SET DATA CHECK IN PROGRESS 
1 O75) om_A_ECI, Ucesw OFESET#I(R ) AND INHIBIT ECC CORRECTION 
o00cB CS) «(01s«90s«O TE 136 MOVB «#1 UT BSB OF FRTC(RS sSET INITIAL OFFSET RETRY COUNT 
OOCA CS 9 4 75 CLRB UCOsB” F OO KERS) [CLEAR INITIAL OFFSET TABLE INDEX 
58 AS 00 0228 754 MOVL UCBSLZIRP(RS) ,R2 :GET ADDRESS OF IRP 
78 A ec Ag D € 755 MOVG  IRPSL-SVAPTE(R2) ,UCBSL_SVAPTE(RS) :RESET TRANSFER PARAMETERS 
ooBCc C5 BA dO 1 £26 MOVL IRPSL_MEDIA(R2) ,UCBSW_BA(RS) ; 
$3, oak 
? 789 : DATA CHECK RETRY 
5 oe0 
7 762 CHECKRETRY: :DATA CHECK RETR 
d 163 EXFUNCL TRANXT,£_WRITECHECK s EXECUTE URITECHECK FUNCTION 
—E 765; 
: oe 3: SUCCESSFUL OPERATION COMPLETION 
—E 768° 
E 789 NORMAL : 3 
50 01 3C Hi £70 ceed MOVZWL S$*#SS$_NORMAL,RO SSET NORMAL COMPLETION STATUS 
0170 31 0241 07e BRW FUNCXT : 
rant 
44 775 : TRANSFER ENDED WITH A RETRIABLE ERROR 
ah 
44 778 TRANXT: : TRANSFER EXIT 
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ART 1/0 OPERATION $e 1 38¢ 83:43:34 LORIVER. SRCIOMDRIVER.MAR: 1 : 
0093 ¢5 98 y rf 4 coe #COF prisieaathcntteme seh | 3 ;WRITE DATA FUNCTION? 
0093 C5 9p z 4 1 core #COF MOSTEREAD AESS_ CERES? Tats HEADER FUNCTION? 
51 2820 BF B 78 BITW  #RK_CS1_M_CTO!- [CONTROLLER TIMEOUT OR 
784 RK_CS1_A_OPPEi- SDATAPATH PURGE ERROR OR 
7 785 RK-CS1_M-SPAR,R1 :SERIAL BUS PARITY ERROR? 
ge ur} ek § BNEQ RETRY 31F NEQ YES 
52 €800 8F 8B , Boom BITw #RK_CS2_M DLT!= DATA LATE OR, 
Pe 7 § RK_CS2_A_OPE!- ;UNIBUS PARITY ERROR OR, 
a oe RK_CS2_M_NEM!- sNONEXISTENT MEMORY OR, 
43 f 0 RK_CS2_M_WCE,R2 WRITE CHECK ERROR? 
07 3 91 BNEQ RETRY iF YES 
53 200A 8F 8 6 re BITW #RK_ER_M_DRPAR!- 30RI PARITY ERROR OR, 
6 79 RK_ER_A_OPI!- sOPERATION INCOMPLETE OR, 
6 794 RK-ER_M_SKI,R3 ;SEEK INCOMPLETE? 
03 13 $3 795 BEQL ect z1F EQL NO 
6 796 RETRY: : 
oocsS)=s«331 67 79 BRW RETRYERR ;RETRIABLE ERROR 
OS6a 799 
ea 89 ; ECC, DRIVE TIMING, OR HEADER ERROR = APPLY ECC OR PERFORM OFFSET RECOVERY 
' 6A aoe 
6A 803 ECC: ECC CORRECTION 
50 00CO CS 3C QO26A 804 MOVZWL UCBSW_BCR(R5) ,RO 3GET NEGATIVE NUMBER OF BYTES REMAINING 
50 7€ AS AO Q26F 805 ADDW UCB$W~BCNT (R55 ,RO ; CALCULATE NUMBER OF BYTES TRANSFERED 
51 50 0 0273 £06 MOVL RO,R1 ;COPY NUMBER OF BYTES TRANSFERED 
. SF 13 0 8 0 BEQL off 31F EQL NONE = PERFORM OFFSET RECOVERY 
02°53 08 €0 027 08 BBS #RK_ER_V_HVRC,R3,10$  § ;1F SET, HEADER VRC ERROR 
50 07 7¢ 09 DECL ;SET TO TRUNCATE LAST BLOCK TRANSFERED 
50 = O1FF 5 AK 43 10 108: BICW #*X1FF,RO ; TRUNCATE RESIDUAL BYTES TRANSFERED 
53 1140 8F B83 8 11 BITW #RK_ER_M_DTE!- DRIVE TIMING ° 
028 \¢ RK_ER_A_ECH!- 7ECC HARD ERR P 
8 8 1 RK-ER_M_HVRC,R3 HEADER VRC ERROR? 
4D 12 8 14 BNEQ FF sIF NEQ YES = PERFORM OFFSET RECOVERY 
. ae |: ee, BA 15 mova R2,-(SP) : Save work registers. 
52 00C6 C5 00 =«O—CEA oe 1g FFS #0,411,UCBSW_EC2(R5),R2 ; pe Aa first error bit in the ECC 
; pattern. 
SS oA S22 «CSS 94 18 SUBL3 R2,#10,R3 ; Get the number of error bits 
3 19 : _remaining in the pattern. 
98 15 9 0 BLEQ 208 ; Branch if no other bits in pattern. 
§ D6 9A 1 INCL R : Point ot next bit in pattern. 
52 00c6¢5 §3 5§ EF 9 § EXTZV = =R2,R3 ULERY _ACEIRS? Re : Is there more than one error bit set? 
0C BA OCA 208:  POPR #*mcr$,R2> : Restore work registers without 
A 4 ; affecting flags. ; 
2B OTA A 5 BGTRU DEFER_ECC : If more than one error bit set, don't 
ae § ; apply ECC correction. 
ry § ; APPLY_ECC = 
v4 9 3; Apply ECC correction to correct a single bit error. 
A? § 
A? APPLY_ECC: : 
7E 1 00 A7 4 MOVL Ri, -(SP) : Save total bytes transfered, inc. ECC. 
00000000'GF 16 O2AA 5 JSB G* fOCSAPPLYECC ; Apply ECC correction. 
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50 BE 8 § POPL ; Retrieve transfered byte count. 
a 49 HE 4 8 ; JSB MES og pdb og ; Update transfer fer inder. 
B 3 CLRB 8 oe weed, LEP. ) ; Reset offset table index. 
Bb Cg EXFUNCH F_LRETCENTER ; Return to centeriine. 
7E ag cs B4 TSTW CBSW-BCNT (RS) 3; Any more to transfer? 
C B 8 at : If EQL no. 
FF 34 C9 = -B4 BRW TRANSFR i; Transfer next segment. 
FF3A 81 cc B48 208: BRW DATACHECK : Check for write check. 
0079 ~=s« 31 CF B45 30$: BRW FATALERR ; Branch to fatal error routine. 
DS ORGS 
p $48 : DEFER_ECC - 
D B50 Don't apply ECC correction for multiple bit errors unless the error cannot 
. e3) : be recovered with offset retries. 
D 38 . 
D B54 DEFER_ECC: 
046 «88 D B55 BISB #0M_M_ECC_DEFER,- : Set flag to indicate that ECC 
00c9 C5 >. 528 UCBSW_OFFSET +1(R5) ; can be used if offset recovery fails. 
0207 858 ; 
4 +44 3; OFF = OFFSET RECOVERY 
D7 B6 ; THIS CODE IS EXECUTED WHEN A DRIVE TIMING ERROR, HEADER VRC, OR ECC HARD 
D7 862 ; ERROR IS DETECTED ON A READ FUNCTION. 
i 1% ' 
0207 B65 OFF: FSET RECOVERY 
OOFA C5 9 8 D7 508 BISB #0M_IND_M_OF ,UCBSB_DM_ InbcRS) sSET OFFSET FLAG 
0 »D DC «86 TSTL «RO ~ sANY GOOD DATA TRANSFERED? 
i. 3 : Ag8 BEQL 10$ sI1F EQL NO 
E 870 3 
E B71 ; THE vere wtih IN AN ERROR BUT pi a pd TRANSF | THAT 
E 1h 3; CONTAINED GOOD DATA. SINCE THE ERROR COULD HAVE BEEN CAUSED A CYLIN- 
E B73 ; DER CROSSING, THE Go0D DATA IS SAVED AND THE TRANSFER IS RETRIED FROM THE 
EO 874 : POINT OF ERROR. 
Bie 
00000000 ' GF 16 E 14, JSB G* IOCSUPDATRANSP sUPDATE TRANSFER PARAMETERS 
OOCA CS) 94 E6 878 CLRB EE ESO SF FADE CRD) sRESET OFFSET TABLE INDEX 
0B sO EA 879 BRB 0$ 3 
Ee BST 
43 gi ; NO GOOD DATA TRANSFERRED = CHECK IF CHANGE IN OFFSET NEEDED 
EC BBS 
00cB ; 44 } B85 10$: pece ie OFFRTC(RS) : Fpenge su current offset? 
ooce ¢5 $8 F MOVB YcBse OF OF FRT (R5) : Set oftset retry count 
CAC 96 F : 3 208: INCB ucé R5) ; Update offset table index. 
50 CA 9A F : MOVZBL UCBSB BrOFENDKCR ),RO ; Get next orteet Ss table index. 
91 : , CMPB : All oi teste te tried 
12 Bg BNEQ : Branch 
ba B92 BBSC #OM_V_ECC_DEFER,=- ; Correct the eirer with ECC if we can. 


00C9 C5 
OOC8 CS) = FD4S CF4O 
ooce C5 % 
01 
03 00c9 C5 
FEDS 
FFO8 
0080 ¢5 
53 2002 8F 
07 
FE38 
51 OOCE C5 
50 0254 8F 
68 3p08 6 
0 9° F 
so” ggac F 
8 
50 5 


so iss 
50 gone § 
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START 1/0 OPE 


SBE FAW HAIGPPPIPPONPINPINPINPINON | 


PPP PLLL EEE 
DDWDDVMWDVISOSOOOOCOOWM PD PVT FFF MO OUI NVI DP 


AAA A.A AAA AI ROMONOPONIPINININD 2 SB BI OQOOOOOOOCOOOOOOOOO DD 


PPAR 9 ODNOA NE WN $9 OO NAME WIN @ O OD NA UE WI 0 ODNAUE UP OOONAOUESW PX 


DWDODODOOOOOOOODOOODOODODOOOOODOOODDOOOOOOOOOOOOOOO@ODcCECDCDCD 


Si 
a 
$8 
ie 
12 67 
48 69 Be 
i ts 94 
8 77% 
2 ee 
Hs 7E 3 96 
8 4 
be 
94 


=_oO 


7 DISK DRIVER I§-s P- 
10N -SEP- 
UCBSW_OFFSET#1(R 
APPLY Ect 
BRB OF FSETERR 
30$: MOVB  OFFTAB-1(RO),- 
Y BSW_OFFSET(RS) 
BNEQ = 4 
MOVB #16,UCB$B_OFFRTC 
40$: EXFUNCH FATALERR,F_OFFSE 
50$: BBS #0M_V_DCK,= 
UCBSW-OFFSET+1(R 
BRw TRANSFR 
60$:  BRW-  CHECKRETRY 


: RETRIABLE ERROR 


RETRYERR: 
DECB UCB$B_ERTCNT(RS) 
BEQL FATALERR 
BITW #RK_ER_M_OPI!- 
Rk_ER_A_SKI,R3 
BEQL 
EXFUNCH FATALERR,F_RECAL 
10$: BRw FDISPATCH 


ALL OFFSETS TRIED - RETRIEVE F 


OF F SETERR: 
MOVZWL UCBSW_DM_CS1(R5) 


: FATAL CONTROLLER/DRIVE ERROR 
: INHIBITED, OR FINAL OFFSET TRI 


FATALERR: 


MOVZWL #SS$_VOLINV,RO 
#RK_6S_V VY -UCBSU_DM_DS( 
MOVZWL #SSS_URSAFE.R 
BBS #rk_ER_V_UNS,R3, 
MOVZWL #SSS_FORAAT,RO 
BITW #Rx_ER_M DTYE'- 
RK_ER_A_FMTE,R3 
BNEQ U 
MOVZWL #SS$_WRITLCK,R 
BBS ark _ER V_WLE.R3, 
MOVZWL #SSS$_IVADDR,RO 
BITW k_ER_M COE!- 
RK_ER_A_TDAE,R3 
BNEQ K 
MOVZWL #SS$_DRVERR,RO 
BIiTw  @#Rk_ER_M DTE!- 
rk ER A ILFI- 


RK-ER_M_NXF ! = 


5) ,60$ 


1984 247: AX/VMS Macro v04-00 
198¢ 83:15:96 DRIVER. SRCIJDMDRIVER.MAR; 1 
5),° 3 
+ Otherwise, fatal error. 
3; Set next offset value. 
: If NEQ not offset zero. 
(R5) ; Set offset retry count. 
T ; Offset to next position. 
3; If set, data check function. 


; Try function again. 
; Try data check again. 


sRETRIABLE ERROR 
+ - a LEFT? 


s;OPERATION INCOMPLETE OR, 
SEEK INCOMPLETE? 

:1F EQL NO 

s;RECALIBRATE DRIVE 


INAL TRANSFER STATUS 


VERY ER 


: co ROR 
RI ; CONTROL STATUS REGISTER 1 


— RETRY COUNT EXHAUSTED, ERROR RETRY 


ZFATAL ERROR = SET STATUS 
set VOLUME INVALID STATUS 
RS) ,FUNCXT sIF CLR, VOLUME INVALID 
sSEf DRIVE UNSAFE STATUS 
FUNCXT :1F SET, DRIVE UNSAFE 
'SET FORMAT ERROR STATUS 
ono OR, 


FUNCXT 


OVERFLOW OR, 
DRESS ERROR? 


I 

E 

A 
ROR STATUS 
ions OR, 


ON OR 
FUNCTION OR, 


-—_———— 
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START 1/0 OPERATION SrSEE SES Gbi95:S FOMIVER Sees e vet Oe uae. Pee 19, 
RK ER_W OPI! OPERATION INCOMPLETE OR, 
; wee fegarilts HAL Mente 
29 girs F x MOVZWL Bess PARITY,RO Set parity error status. 
160 BF OB BiTW #rk_ER_M BSE!- Bad sector error or, 


data check error or, 

ECC hard error or, 

header VRC error? 

f NEQ yes 
Set fatal controller error status. 
Branch if drive parity error. 


RK_ER_A_BCK!- 
RK-ER-M_ECH!= 

RK-ER-M_HVRC,RS 
BNEQ FURCKT ~ 


MOVZWL ass CTRLERR,RO 
BBS KER V_DRPAR,R3,- 


PUPS 
OWOBNOA NESW 9 ONAN UO 


oOo 
errrnyp 
OOOOOO0000 


0, gee 


Ht 
BITW ene 


6 
F 
51 2020 8F B83 F ze i! M_DPPE!- SDATAPATH PURGE ERROR OR 
AG Kot A_SPAR,R1 “SERIAL BUS PARITY ERROR? 
18 1 a (96 BNEQ FURC IF NEQ Y 
a 5 sc BF 5 M6 96 BBS K C82 v UPE Pues FUNCXT ;IF SET, UNIBUS PARITY ERROR 
¢ AA 9% MOVZWL ase80 ATA CHECK ,RO SET DATA CHECK ERROR STATUS 
sot § AF 696 S ark $2 ucE, “he »FUNCXT SIF SET, WRITE CHECK 
ms ff ‘ ; 96 MOVZWL asss N oat KOR SET NONEXISTENT DRIVE STATUS 
0° 28 : %6 V NED R »FUNCXT :IF SET, NONEXISTENT DRI 
54 ¢ BC 970 MOVZWL #538. CTRLERR, ‘ie. SET CONTROLLER ERROR STATUS 
C1 972; 
3 378 ; FUNCTION COMPLETION COMMON EXIT 
C1 975 
C1 976 FUNCXT: sFUNCTION EXIT 
oorB cS) «50 «60 «(03C1~—s «97 VL RO,UCBSL_DM FRS(RS) 7SAVE FINAL REQUEST STATUS ACROSS pRECAL 
90900000" GF 16 03C6 978 JSB G* fOCSDIAGBOF I sFILL D DIAGNOSTIC BUFFER IF PRESENT 
0092 ($5) (OAC? cc 9 CMPB PCOF WRITECHECKUCBSB_ FEK(R ) DRIVE RELATED FUNCTION? 
14 1A 0301 980 BGTRU 10% :1F GTRU YES 
0092 ¢5 OF 9 D3 981 CMPB = @CDF_LAVAILABLE, UCBSB_FEX(RS) ;DRIVE RELATED FUNCTION? 
p 1 dB 9 : BEQL 108 ~ s1F EQL YES 
53 S58 AS 00 O3DA 9 MOVL. UCBSL_ 1RP(RS) , R3 ZRETRIEVE ADDRESS OF IRP 
00¢9 C3 Al DE 984 ADDW3 UCBSW~BCR(RS > CAL CULATE AND SAVE BYTES TRANSFERRED 
DCS A E2 985 IRPSW BENT CASS UCBSL_DM iRssotr R5) 
OOFA CS 00 ES e? 9 6 10$: BBCC #dm_IRAD utes $8 DA_IND(RS),20$ :if CLEAR, NOT IN OF FSET MODE 
0080 cS 01 0 E 9 MOVB #1 "otese VERTENTIR J ; Set error retry count to 1 
F 988 : preven’ a timeout on the delievinn 
F 989 3; RECAL from decrementing the count 
F 990 3 to a negative number and thereby 
f 991 : EAL SBRA ng, :. semi-infinite loop. 
F 99¢ EXFUNCH 208,F_RECAL SRECALIBRATE DRIVE 
51 04 O3F9 993 208: CLRL 7CLEAR SECOND. STATUS LONGWORD 
50 OOfrB CS D0 FB 994 MOVL UCBSL_DM_FRS(R5) ,RO :RETR IEVE FINAL REQUEST STATUS 
00 995 REQCOM SCOMPLETE REQUEST 
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DRIVER.SRCJOMDRIVER.MAR; 1 
~SBTTL RK611-RKO6/RKO7 HARDWARE FUNCTION EXECUTION 


= RK611-RKO6/RKO7 HARDWARE puss ion But tO (HIGH P 
= RK611-RKO6/RKO7 HARDWARE FUNCTION CUTION (LOW PR 


= o= 


an ROUTI ALL DATA IS ASSUM 


R N N_ADD 
B AND A _WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER= 
L IS RETURNED TO THE CALLER. 


LER. 
ALLER'S CALLER. 


NLINE AT THE CALL SITE IS A BYTE WHICH CONTAINS 
AN ERROR RETRY ROUTINE. 


OUTPUTS: 

THERE ARE FOUR EXITS FROM THIS ROUTINE: 

- SPECIAL gd Bh = THIS EXIT IS TAKEN 
OR THE OPERATION TIMES OUT. IT IS 
ERROR ROUTINE. 

2. FATAL ERROR = THIS EXIT IS TAKEN IF A FATAL CONTROLLER . DRIVE 
ERROR OCCURS OR IF ANY ERROR OCCURS AND ERROR RETRY IS 
INHIBITED. IT IS A JUMP TO THE FATAL ERROR EXIT ROUTINE. 

3. RETRIABLE ERROR = THIS EXIT IS Has by am RETRIABLE CONTROLLER 
OR DRIVE ERROR OCCURS AND ERROR RETRY IS NOT INHIBITED. 

IT CONSISTS OF TAKING THE ERROR BRANCH EXIT. 


4. SUCCESSFUL OPERATION = THIS EXIT IS TAKEN IF NO ERROR OCCURS 
DURING THE OPERATION. IT CONSISTS OF A RETURN INLINE. 


IN ALL CASES IF AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 


IN ALL CASES FINAL DRIV by CONTROLLER peer sree. ARE RETURNED VIA 
THE GENERAL REGISTERS R » AND RS, AND THE UCB. 


IF A POWER FAILURE OCCURS 
A JUMP TO THE APPROPRIATE 


R1 = CONTROL status REGISTER 1. 
Aw = pbb TATUS REGISTER 2. 

ERROR REGISTER. 
UCBSW_ECI(R5) = ECC POSITION REGISTER. 
UCBSW_EC2(R5) = ECC PATTERN REGISTER. 
UCBSW_BCR(RS) = BYTE COUNT REGISTER. 


DMORIVER = RK 
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52 wenee SS 9 


cos Hg 


— 


6 

52. SGA C 
00A1 31 

52. 08 = AB 


03 64 AS BA 1 
08 A4 g 
64 FBDA CF43 O0CC C & 


O1A1=s531 


OOO O O09 09.00 09 69 69 69 09 09 09 SI NIN NIN SINS NIAAA AA AA AA AMNION 
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ON NN NN NN NM ttt 
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=RKO6/RKO? HARDWARE FUNCTION EXECUT 5-SEP-1984 DRIVER. SRC MORIVER.MAR; 1 
~-ENABL LSB 
FEXH: FUNCTION EXECUTOR (HIGH PRIORITY) 
poye "a pemmeeatcsnteessctine ;SET ADDRESS OF REQUEST CHANNEL ROUTINE 
sFUNCTION EXECUTOR (LOW PRIOR 
MOVAB MY hes tat de oR2 sSET ADDRESS OF REQUEST CHANNEL "ROUTINE 
10$: POPL Ucest sSAVE DRIVER PC VALUE 
MOVB ucess. CEX(RS) SAVE CASE INDEX 
JSB ( REQUEST CHANNEL 
MOVZWL usb UNIT(RS) ,R2 :GET pevice UNIT NUMBE 
CASE DISPATCH TO PROPER FUNCTION ROUTINE 
IMMED,= NO OPERATION 
IMMED,- s;UNLOAD VOLUME 
POSIT,= SEEK CYLINDER 
POSIT,=- ;RECALIBRATE 
IMMED,- sDRIVE CLEAR 
RELES,=- RELEASE DRIVE 
POSIT,=- OFFSET HEADS 
POSIT,= RETURN “CENTERLINE 
IMMED,= PACK ACKNOWLEDGE 
IMMED,=- ;START SPINDLE 
E TRANSFER FUNCTION 


BRW XFER 
-DSABL LSB 


IMMEDIATE FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 
NO OPERATION 


POR 
PACK $6 FORE ce AND 
START SPINDLE. 


INTERRUPTS ARE LOCKED OUT, THE APPROPRIATE FUNCTION IS INITIATED WITH 
INTERRUPT ENABLE, AND A WAITFOR INTERRUPT AND KEEP CHANNEL IS EXECUTED. 
THESE FUNCTIONS ALL EXECUTE WITHIN A VERY SHORT TIME (15 US), BUT ARE 
VERY INFREQUENT AND THEREFORE ARE DONE WITH INTERRUPTS TO AVOID AN EXTRA 
SET OF REGISTER SAVE LOGIC. 

RELES: sRELEASE PORT 

BISW  #RK_CS2_M_RLS,R2 [SET PORT RELEASE BIT 
IMMED : S IMMEDIATE FUNCTION EXECUTION 
DSBINT “DISABLE INTERRUPTS 
BBC #ucBsy _POWER,UCBSW_STS(R5),10$ ;IF CLR, POWER HAS NOT FAILED 
BRW TELSE, POWER HAS FAILED 
10S: CS2(R4) ise! UNIT NUMBER 
B1SW3 ae oa DTYPCRS) . FTABCRS),RK_CSI(R4) ; EXECUTE FUNCTION 
WF IKPCH Rise SCHR, #2 ;WAITFOR INTERRUPT 
1OF ORK [CREATE FORK PROCESS 
BRYW RLSCHN : 


I 10 


| DMDRIVER “RKO6/RKO7 DISK DRIVER 15-SEP-1984 23:47: AX/VMS Macro v04-00 Page 22 DF 
mire Ree oRKOes RKO? HARDWARE FUNCTION EXECUT a ats 9 § : 53g YORIVER. SRCJDMDRIVER.MAR; 1 tH) vC 
1111 ; 
nie : POSITIONING FUNCTION EXECUTION 
a4 114 : FUNCTIONS INCLUDE: 
47 1116 : SEEK CYLINDER, 
472 1117: RECALIBR 
47 1118 ; OFFSET HEAD aos, 
4? 1119 ; RETURN HEADS 10.  ENTERLINE. 
472 1121 : THE OFFSET REGISTER AND CYLINDER ADDRESS REGISTERS ARE LOADED, INTERRUPTS 
4? 11 : ; ARE LOCKED OUT, AND THE APPROPRIATE POSITIONING FUNCTION IS INITIATED 
472 1123 : WITHOUT INTERRUPT ENABLE. THE CONTROLLER IS THEN POLLED FOR READY, DEVICE | 
472 1126 : INTERRUPTS ARE ENABLED, AND A WAITFOR INTERRUPT AND RELEASE CHANNEL [S 
472 1125 ; EXECUTED. | 
ae 1 | | 
472 11 ’ POSIT: :POSITIONING FUNCTION | 
472 11 DSBINT “DISABLE INTERRUPTS 
SF 64 05 05 €0 0478 1130 BS #UCBSV_POWER,UCBSW_STS(R5),ENBXIT :1F SET, POWER HAS FAILED 
3 AG = 008 C3 B0 470 1131 MOVW UCBSW -OFFSETERS ),RR AS(R 4)°:SET OFFSET VALUE 
10 a4 OOBE ¢ B0 48 11 ¢ MOVW UsBéu- DC(R5S) RK_OC(R4) ;SET DESIRED CYLINDER ADDRESS 
AG BO 0489 11 MOVW C$2(R4S ise UNIT NUMBER | 
64 FBA3S CF463 O00CC CS AD 048D 1134 B1SW3 ueésu bas DTYP(RS) ,FTABCR3),RK_CS1(R4) ; EXECUTE FUNCTION 
03€3 30 0496 1135 BSBW = DM_WATT sWAIT-FOR FUNCTION TO COMPLETE | 
49 1 6 a WFIRLCH RE TREG #6 [WAITFOR INTERRUPT | 
6a3 1138 DSBINT DISABLE INTERRUPTS 
22 64 AS. OS 4A9 1139 BBS #UCBSV_POWER, UCBSW s1scn8) .10$ :IF SET, POWER FAILURE 
8 AG 5445 BO AE 1140 MOVW UCB$W_ONIT(RS5) ,RK_CS2(R4) :SET UNIT NUMBER | 
64 01 oocc C5 ad 0483 1141 BISW3 UCBSW7DM TOTYPCRS) 2 AF eNOP! 1;RK_CS1(R4) ;SELECT DRIVE TO GET STATUS 
03A0 30 0489 1148 BSBW Mm WATT SWAIT"FOR CONTROLLER READ 
0A AG = 4000 ar 83 48 1143 pity wee. DS_M_DSC,RK_DS(R4) : OPERATION COMPLE Ee 
ta cg 1145 WF IKPCH RETREG #6 :WAITFOR INTERRUPT | 
400 Wee 10$:  ENBINT TENABLE INT ERR UPTS | 
4D 1148 20S: IOF ORK SCREATE FORK PROCESS | 
013D = s31 0409 1149 eum Rw RETREG : | 
40C 1151 ENBINT : | 
0131 31 O4dF 113¢ RW RLSCHN : 
as it 
at 1185 t TRANSFER FUNCTION EXECUTION 
4E 1137 : FUNCTIONS INCLUDE: 
bE 1189 : WRITE CHECK, 
4E 1160 : WRITE D 
4E2 1161: WRITE HEADERS 
4 116 ; READ DATA, AND 
ae 1163 : READ HEADER. 
te 1188 : A UNIBUS DATAPATH 1S REQUESTED FOLLOWED BY THE APPROPRIATE NUMBER OF MAP 
4E 1166 : REGISTERS REQUIRED FOR THE TRANSFER. THE TRANSFER PARAMETERS ARE LOADED 
4E2 1167 ; INTO THE pevice REGISTERS, INTERRUPTS ARE LOCKED OUT, THE FUNCTION IS 


i - — 


oe eee ee + OE OOO 
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= RK611-RK06/RKO7 DISK DRIVER -SEP-1984 AX/VMS Macro v04-00 Page 23 
RKel UAKOC RKO UA RAeARE EY FUNCTION execut -SEP-1984 t bo: :¢ YORIVER. SRCJDMDRIVER.MAR; 1 (1) 
rt Hie ; INITIATED, AND A WAITFOR INTERRUPT AND KEEP CHANNEL IS EXECUTED. 
tf 1} XFER: : TRANSFER FUNCTION EXECUTION 
4E 1126 REQDPR SREQUEST DATAPATH 
468 117 REQMPR SREQUEST MAPS REGISTERS 
SHE ITS BBMPUPY eng crcnsy no SPA RRLRVSAMAY ERSTE 
” so’ 03 Ht rh 113 nov? wt ; SCALCULATE TRANSFER WORD COUNT 
4F 1199 DSBINT ur6s8_o1 DIPL (RS) SDISABLE DEVICE INTERRUPTS 
a4 50 AE OS : 1178 MNE GW (R4) 'SET TRAN ANSFER WORD COUNT 
6 7¢ a3 3 117 mOVeuL UcéSu “Bore (RS) RO ;GET BYTE OFFSET IN PAGE | 
1 2605 O 3 A 1180 MOVL  UCBSL“CRB(RS) ,R1 GET ADDRESS OF CRB | 
50 07 09 $2 Al £0 050€ 1 1 Insy CRESL me MAPREG(RI) 549.47 ,R ApaNseR HIGH 7 BITS OF ADDRESS | 
50 34 a 03 07 FF 318 1 5 cxf Hi ry) #2; CRBSL_INTD+VECSW_ nih cht) RO” -cEy REWORY EXTENSION BITS 
50 . FB11 CF4 3 5 ; 1185 BI1SW re R3 ‘RO, SMERGE FUNCTION CODE 
06 a6 008C CS) «B80 0528 «11 MOVW UCB$W_DA(RS), RK -PACRS) :SET DESIRED TRACK AND SECTOR ADDRESS 
10 AG 8 —E¢S B80 0526 11 $ MOVW UCBSW7DC (RS) (R4) jSEr DESIRED CYLINDER ADDRESS 
08 AG) «O54 AS) «BO O(0S34 «1188 MOVW UCBSW “UNIT ERE) m _CS2(R4) ;SET UNIT NUMBER 
age 1185 ger tPt ; tesy _POWER,UCBSW_ stscnip ts Oe PNER ONO POWER FAILURE 
veins wt 2 $44 1131 ENBINT 2m CRADLE’ NTERRUPT 
: P(RS),RO,RK _tstirs) sEXECUTE FUNCTION 
wel Sith re cS 0360 1138 _ oh ieee tT le stibethaesas atta :WALTEOR rane PROCE AND KEEP CHANNEL 
035 1198 sOROPR [PURGE DATAPATH CHECK /CLEAR ERRORS 
OF CO Ap GK 
rw ae 0386 1199 K_CS1_A_BPPE ycasu_ DM. cé} 1(R5) DATAPATH PURGE ERRO 
9006 CS B4 9560 1 90 cLRW eas. On cs2(R9) CLEAR CONT NTR ROL STATUS REGISTER 2 
00D8 C5 Pree ff RA he 1 0 Bicu ac <RE SA VV>,UCBSW_DMDS(RS) iStEA AR ALL BUT VOLUME VALID 
05 OOCE CS) «OF «EO bi 1 0 20$: BBS #RK_CST_V"CERR,UCBSW_OM CS1(R5),30$ :IF SET , DEVICE ERRORS 
4168 A5 01 €1 05 ; 1204 BBC #uC casy vBIXSBUF ucesu_ “DEVSTS(R5) .40$ :IF CLR, NO DIAGNOSTIC BUFFER 
EF 0587 1 3 30$:  EXTZV AVECSV- “DATA PATH SEXTRACT DATAPATH # 
589 120 #VECSS"DATA : FROM CRB AND SAVE IT 
37 A 58a 1 $ CRBSL Santee ge. -DATAPATH(R3) ,~ 
ogee 7 3 f i a8 OVL as th FeNtBRtRS) [SAVE DATAPATH REGISTER CONTENTS 
50 0002 4 - $3 89 p? 394 10 EXTZV ‘ wy UCBSW"DM_BA(RS), RO"; GET LOw BITS OF FINAL 
+1(R5),#7,82,R0_; INSERT itch -eiis OF FINAL MAP REGISTER 
oe 44 re ft $9 } i cn #95. Br. - 2 TF eeoTnesteclSTER NUMBER? 
BAP sss, BAM BR uae on ncn aE AG MEU EN 
ery 504 nor? v1 3 i 8 sate CERE RRS) Sie PREVIOUS MAP REGISTER CONTENTS 
3 D7 0588 121 DECL tie LCULATE PREVIOUS MAP REGISTER NUMBER 
9 OF EC OSBA 1 8 CMPV SVECSY nasene AVECSS nari. ANY PREVIOUS MAP REGISTER? 
34 8 ' 58 i 0 tt CRBSL INTD+VECSW -MAPREG(R d, “RO. ww 
4 
BSL_DM PmpRRs) - SAVE PREVIOUS MAP REGISTER 
00c0 5. - ° 028 ae s } § 40S: AUC U3 Senet et be Maetatt W BCR(RS) :CONVERT WD TO BYTE COUNT 
OCE 3 ge EO 0500 1224 BBS #RK_CS1 i Cena. yeesu. Ba Meet tRs) 6S TIF SET, DEVICE ERRORS 
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ira tt RK611-RKO6/RKO7 HARDWARE FUNCTION EXECUT g=gEP =}38% 88:75 ‘8 YORIVER. SRCJOMDRIVER.MAR; 1 ” tl 
0093 CS g 9 D6 1225 CMPB =—s- CDF _LREADHEAD ,UCBSB_CEX(R5) ;READ HEADER FUNCTION? 
pbB 1 : BNEQ s1F NEO NO 
78 A pp DD 1 PUSHL UCBSL_SVAPTE(RS) SSAVE ADDRESS OF PTE 
51 Q F4 £0 1 8 MOVAB UCBs DM_DB(R5) ,R1 SSET ADDRESS OF INTERNAL BUFFER 
D 65 1 MOVL Ro” ‘SET NUMBER OF BYTES TO MOVE 
7E A E 1230 CMP R -UCBSW_BCNT(RS) sROOM FOR FULL HEADER? 
4 1F C 1231 BLSSU § SIF LSSU YES 
5 7E A fe 1 3 MOVZ2WL UCBSW_BCNT(RS) “SET LENGTH OF PARTIAL HEADER 
00c0 cS 7E AS) «OAS «OOSFO «61238 50S:  SuBW3 UCBSW~ BCNT (RD ) a ,UCBSW_BCR(R5) ;CALCULATE TRANSFER BYTE COUNT 
0 009 GF 1 5F9 1234 J$8 G*10CSMOV “;MOVE HEADER TO USER BUFFER 
AS BEDO OSFF 1235 POPL ocase _SVA weehs) SRESTORE ADDRESS OF PTE 
93 1 6 60$: SETIPL DeBSh7 LPL CR 5) + INSURE PROPER IPL FOR RELEASE 
1 RELDPR SRELEASE DATA PAT 
60D 1 : RELMPR ;RELEASE BAP REGISTERS 
613 1239 RLSCHN: 
613 1240 RELCHAN SRELEASE CHANNEL 
$19 1302 
619 1 rh RETURN REGISTERS 
ET 
619 1 46 .ENABL LSB 
619 1247 RETREG: ;RETURN FINAL DEVICE REGISTERS 
51 OOCE CS 3C 0619 1248 MOVZWL UCBSW_DM_CS1(R5).R1 TRETRIEVE CONTROL STATUS REGISTER 
3 0D6 C5 ¢ 0616 1249 MOVZWL UCBSW~DM~CS2(R5) .R2 TRETRIEVE CONTROL STATUS REGISTER 2 
5 DA ¢ ¢ 623 1250 MOVZWL UCBSW~DM~ER(RS) ,R3 RETRIEVE E STER 
64 AS 0060 BF BS 0628 1251 BITW  #UCBSA_POWER!- POWER FAIL OR DEVICE TIMEOUT? 
62E 1 3g UCBSM_ TROUT: UCBSW_ sts(rs) : 
64 12 6 E 125 BNEQ $ SIF NEQ YES = SPECIAL CONDITION 
1D 51 OOF f 630 1254 BBS MRK CSTV CERR.RI,5$ IF SET, ERROR OCCURED 
1 06346 1255 CMPB Os @CDF_PACKACK ; DID ue EXECUTE A PACK ACKNOWLEDGE 
0093 6 1 36 te PrEK(RSS ; FUNC ION? 
12 639 125 BNEQ ; BRANCH IF NO 
80 BF B3 0638 1 38 BlTw ; DRIVE READY Bit SET? 
D8 ¢3 63F 125 UCGSU_BRDS (ns) ; 
12 0642 1260 BNEQ 0$ ; BRANCH IF SO. 
AA 0644 1261 BICw  #RK_DS_M_ ; FORCE VOLUME VALID BIT TO REFLECT TRUE 
8 c5 8 1 6¢ UCBSW_BM~DS(RS) STATUS. s 
64 AS Fo OAA 8 126 BICw  #UCBSR VALID, UCBSwW.STS(RS) :MARK VOLUME “INVALID 
0093 C oe 1 3 64 S$: CPB #COF_WRITECHECK,UCBSB_CE EX(RSS DRIVE RELATED FUNCTION? 
00cO CS) «= 7E AS) sAE 38 66 oe MNEGW  UCBSW_BCNT(RS),UCBSW_BCR(RS) ;RESET BYTE COUNT - NO TRANSFER 
90 O°GF 1 5E 1 68 JSB G*ERLSDEVICERR ALLOCATE A AND FILL ERROR MESSAGE BUFFER 
68 9 AC . & 66 1 $ BBS #108V tsdtntene!: /UCBSW_FUNC(R5),70$ ;1F SET, RETRY INHIBITED 
2 1700 8 6 6A 1 p BiTw SMULTIPLE ORIVE SELECT OR, 
66F 127 atthe a'neD: * SNONEXISTENT DISK OR 
66F 127 Ree “CSO-M~PGEi- : PROGRAMMING ERROR oR, 
6F 127 RK~CSO-M~UFE .R2 [UNIT FIELD ERRO 
ss ows HS BH BND Fit en nase: lH BE ca 
76 127 K_ER_A_COE! : CYLINDER ADDRESS OVERFLOW OR, 
76 127 K"ER-M “DIYE!= [DRIVE TYPE ERROR OR, 
76 127 RKTERTACERTE i [FORMAT ERROR OR 
676 127 RK“ER“M~IDAE!~ SINVALID DISK ADORESS ERROR OR, 
676 1280 RK"ER"M-ILF'- SILLEGAL FUNCTION OR 
676 1281 RK "ER "MONXF i~ [NONEXECUTABLE FUNCTION OR, 
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7 ; RK_ER_M_WLE.R3 :WRITE tock ERROR? 
1A 5 Ge rb ones x ER_V_UNS,R > drive is unsafe | 
53 0008 28 f 67 ¢ BBC #RK-DS-V-VV, oeasae om. pscish’ ranch :1F CLR, VOLUME INVALID | 


8 ; RETRIABLE ERROR EXIT | 


3 208: CVTBL 


43 perc #3 9 @UCBSL_DPC(RS) ,-(SP) 3;GET BRANCH pbk ty 
9C C 34 ADDL  (SP)+,0CB$L_DPC(R5) CALCULATE RETURN ADDRESS = 1 
9C C +] 95 30S: INCL yet DPC (RS) sADJUST TO CO RRECT RETURN ADDRESS 
9C D 3¢ aucB C_oOPC(RS) sRETURN TO DRIVER 
42 11 : 40$: Bea 80$ 3 | 
98 ; 
69 3 Check for unsafe condition and attempt to clear it. | 
1 ov 
§ 50$: DSBINT :; Disable interupts. 
0S €1 BBC #UCBSV_POWER,- 3; Branch if no power failure occured. 
03 64 A5 UCB$W_STS(R5) ,60$ ; 
FE38 = 331 p BR ENBXIT 3 Otherwise, enable interupts and 
: af? process error. 
oOocc 3 AD 60$ BISW3 UCBSW_DM_DTYP(RS),- 3; Attempt to clear unsafe condition. 
64 05 9 #F DRVCLR!1,RR_CS1(R4) : 
TIMEWAIT - 3; Wait for ten microseconds or until 
1 TIME = #1,- ; unsafe condition clears. 
1 BITVAL = #RK_CS1_M_CERR,- ; 
1 SOURCE = RK_CSI(R4J,- ; | 
1 CONTEXT = W,- H 
1 SENSE = .FALSE. 
1 ENBINT ; Enable interupts. 
AD 50 «O«EB ; BLBS RO,208 : Branch if drive is no longer unsafe. | 
1 
1 FATAL CONTROLLER OR DRIVE ERROR EXIT | 
Fc73.— 31 BRW FATALERR : | 
| 


3 SPECIAL CONDITION (POWER FAILURE OR DEVICE TIME OUT) 


546405 05 €4 80$: BBSC #UCBSV_POWER ,UCBSW_STS(R5),110$ ;IF SET, POWER FAILURE 


: : DEVICE TIME OUT 
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0 ‘GF (1 JSB G*ERLSDEVICTMO :L06 DEVICE TIME OUT 
4A5 D MOVL UCBSL_CRB(RS) , R3 Ger ADDRESS OF CRB 
CaS. OD MOVL = CRBSL {ntpevec $i {PB (RS) .R3 “R joe! ADDRESS OF IDB 
a3 p CMPL R> 1DBSL_OWNER(RS VICE OWN CONTROLLER? 
8 12 BNEQ §6=s-«908 Ati YNEG NO 
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/ 
RK611-RK06/RKO7 CLASSIFY DRIVE TYPE AND DRIVER. SRC IDMDRIVER. MAR; 1 | 
r a .SBTTL RK611-RKO6/RKO7 CLASSIFY DRIVE TYPE AND SET PARAMETERS | 
ee ! 76 3 DM_DTYPE = RK611-RKO6/RKO7 CLASSIFY DRIVE TYPE AND SET PARAMETERS | 
? : THIS ROUTIN ALLED WHEN AN UNSOLICITED INTERRUPT OCCURS ON A DRIVE, DURING | 
7 i ; 3 SVSTER UNE TIAL TZAS ion, AND AT POWER RECOVERY TO DETERMINE THE DRIVE TYPE AND 
r | : SET UNIT PARAMETERS 
r j : INPUTS: 
743 1384 : R4 = ADDRESS OF CONTROL STATUS REGISTER 1. 
z 5; RS = DEVICE UNIT UCB ADDRESS. | 
2 § : OUTPUTS: | 
ve } ; : THE DRIVE STATUS REGISTER IS INTERROGATED AND UNIT PARAMETERS ARE SET. | 
: R 
Ly, i $3 DM_DTYPE: | septs. nx06,- SCLASSIFY DRIVE TYPE AND SET UNIT PARAMETERS | R 
H ” b 1 3 . UCBSB-DEVTYPE (RS) sSET RKO6 DEVICE TYPE | R 
466 AS 0198 BF 0 rs | 99 mOvY ei). C We CYLINDERS(RS):SET NUMBER OF RKO6 CYLINDERS | 8 
$008 ¢ . , i ' $7 aad nist *RAXBLOCK(RS) zSET MAXIMUM BLOCK NUMBER | R 
we 75a (139 utstu. REDIA 1D(R5) 7SET MEDIA IDENT “DM RKO6’ R 
3 B4 075D 14 CLRW B$w_ OM (R5) TSET RKO6 CONTROLLER sth TYPE | R 
F 63 0761 1204 BITW oS_m or. f “DS(R4) RKO6 DRIVE? | R 
5 90 bres 1408 ROVE ts $_RK07. HIF Eat | R 
41 g 76B 1404 CBSB~DEVTYPE (RS) zSET RKO? DEVICE TYPE Ri 
46 AS O32F BF 0 26 ye nowy ai ev $M. CYLINDERS(RS):SET NUMBER OF RKO7 CYLINDERS | x 
ati 7 . 7 1209 UCBSL BAXBLOCK (RS) ;SET MAXIMUM BLOCK NUMBER | | Ri 
O8C C5 «606 O77A 140 INCL UCBSL MEDIA ID(RS) SET MEDIA IDENT "DM RKO? Ri 
0400 8F ae 77 1209 BISW #rx_c$i 4s | R| 
OOcCc C5 $3 788 1410 RECS MBL :SET RKO? CONTROLLER DRIVE TYPE R 
0S 0785 1411 108: RSB | 
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«SBTTL RK611-RKO6/RKO7 REGISTER DUMP ROUTINE 
DM_REGDUMP = RK611-RK06/RKO7 REGISTER DUMP ROUTINE 
THIS ROUTINE IS CALLED TO SAVE THE i dart ta AND DRIVE REGISTERS 


i 
SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERROR LOGGING ROUTIN 
FROM THE DIAGNOSTIC BUFFER FILL ROUTINE. 


naan 
wo 


NA 
E AND 


INPUTS: 
RO = ADDRESS OF REGISTER SAVE BUFFER. 
R4 = ADDRESS OF CONTROL STATUS REGISTER 1. 
RS = DEVICE UNIT UCB ADDRESS. 

OUTPUTS: 


THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 


DM_REGDUMP: 7RK611-RK06/RKO7 REGISTER DUMP ROUTINE 
MOVL  #<RK monet a3 (RO)+ INSERT NUMBER OF DEVICE REGISTER 
MOVAL ucesd OM cst daft 'GET ADDRESS OF SAVED DEVICE REGISTERS 
OVL <RK fri RY ‘SET NUMBER OF REGISTERS TO MOVE 
10$: MOVZWL (RO) + ‘MOVE REGISTER TO BUFFER 
SOBGTR RS "06 SANY MORE TO MOVE? 
MOVZWL UCB$W_EC1(R5),(RO)+ SINSERT ECC POSITION REGISTER 
MOVZWL UCBSW~ECZ(RD) , (RO) + SINSERT ECC PATTERN REGISTER 
MOVZWL (R1)#7(RO)+ S INSERT MAINTENANCE REGISTER 3 
MOVZWL (R1)4#.(RO)+ S INSERT MAINTENANCE REGISTER 
MOVZWL (R1)+.(RO)+ ‘INSERT DATAPATH NUMBER 
MOVL (R1)+#.(RO)+4 : INSERT DATAPATH REGISTER 
MOVL  (R1)+.(RO)+ S INSERT FINAL MAP REGISTER 
MOVE (R1), (RO) + S INSERT PREVIOUS MAP REGISTER 
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DMDRIVER = RK611-RK06/RKO7 DISK DRIVER 15-SEP-1984 AX/VMS Macro V04-00 Page 29 
| V04 Hy itd RKO6/RKO7 DISK DRIVE INITIALIZATION =SEP=1984 t ba:t3 :¢ DRIVER. SRCJDMDRIVER.MAR:1 (1). 
| 786 164 ~SBTTL RKO6/RKO7 DISK DRIVE INITIALIZATION 
784 14 > DM_RKOX_INIT = RKOG/RKO7 DISK DRIVE INITIALIZATION | 
| 7B4 14 5 + THIS ROUTINE IS CALLED AT SYSTEM INITIALIZATION AND AT POWER RECOVERY TO SET 
| 7B 14 33 DRIVE PARAMETERS AND TO WAIT FOR ONLINE DRIVES 10 SPIN UP. 
7B4 14 5 : INPUTS: | 
| 7B4 1289 : R4 = ADD RESS OF CONTROL STATUS REGISTER 1. 
784 1458 ; RS = DEVICE UNIT UCB ADDRESS. | 
| 784 1460 : OUTPUTS: | 
784 1468 ; UNIT PARAMETERS ARE ESTABLISHED AND THE DRIVE IS SPUN UP IF IT WAS ONLINE. 
7B4 1464 - 
784 1465 DM_RKOX_INIT: «RKO6/RKO7 UNIT INITIALIZATION | 
64 8000 BF B80 0784 1466 MOVW #RK_CS1_M TfERR-RK. CS1(R4) sCLEAR CONTROLLER ERRORS 
08 AG) O54 ASCO 789 146 MOVW UCBSw_URIT(RS) .RK-CS2(R4) ;SET UNIT NUMBER 
66 05 7BE 1468 MOVW #F_DRUCLR!1,RK_CST(R4) ;CLEAR DRIVE AND OBTAIN STATUS 
0098 7C1 1469 BSBW sé “WA IT [WAIT FOR FUNCTION, TO COMPLETE | 
FF7C 704 1470 BSBW  DM~DTYP E. SCLASSIFY DRIVE T 
64 A C O7C7 1671 MOVZWL ucesy STS(RS) ,R3 “SAVE CURRENT U nit. STATUS 
| 64 AS 0810 BF AA O7CB 1478 BICW BSA_ONLINE!UCB$M_VALIb,UCBSW STEERS) SET UNIT OFFLINE/INVALID | 
08 Ad =: 1000 er 83 2p 1473 ity an. ait M_NED,RK_CS2(R4) {NONEXTSTENT D 018k? | 
64 AS Hd i 709 1475 BISW  #UCBSM -ONL INE gycesy. srscif} :SET UNIT ONLINE 
35 08 E1 07D 1476 BBC #UCBSV-V LR, VOLUME SOFTWARE INVALID | 
| 64 8000 BF 80 7E1 1477 10$:  MOVW @#RK est 1D -R “he “E81 (R4) :CLEAR CONTROLLER ERRORS 
08 54 AS BO (O7E6 1678 MOV UCBs STM CERR. RK~CS2(R4) ;SET UNIT NUMBER 
64 05 o0cc cS Ad O7EB 147 BISW3 nati DM_DTYP(R5) -#F “oRVCLAY »RK_CS1(R4) ;CLEAR DRIVE | 
0068 30 O7F1 1480 BSBW = s«éDM_ WATT ~ WAIT FOR FUNCTION TO, COMPLETE 
64 8000 ar 8 rr 1481 BiTy #RR_CS1_M_CERR,RK _£81(R4S jANY CONTROLLER ERRORS? 
0A AG = 0080 BF 8 re 1488 Btw #RK_DS_M_DRDY,RK_DS(R4) :DRIVE READY? | 
00000000 Gt 16 803 1485 20$: JSB GE XE SPURT IMCHK [CHECK FOR MAXIMUM TIME EXCEEDED 
D5 30 EB 0809 1486 BLBS = R ;1F LBS MORE TIME TO GO | 
64 03 00cC (3 X) OF 14 g 30$:  BISW3 UCBSW_DM_DTYP(RS) ,#F _PACKACK!1 RK -£S14R4) s ACKNOWLEDGE PACK | 
0045 3 4 14 BSBW W WA FUNCTION TO COMPLETE 
64 8000 BF 8 17 1490 BiTy #RR_CS1_M_CERR,RK _cstcras” » ANY CONTROLLER ERRORS? 
64 AS i FOAM 1€ 149¢ BISW #UCBSM_VALID ucesu STS(R5) :SET VOLUME SOFTWARE VALID 
64 af B 4 1493 408:  MOVW @#RK CST n CERR,RK_CS1(R4) ;CLEAR CONTROLLER ERRORS 
08 M oo 8 9 1494 mOVW ucesi unit (R5) aK “CS52(R4) :SET UNIT NUMBER 
64 05 c 3 A E 1495 BISW3 UCBSW"DM_DTYP(AS) -#F_DRVCLA'1,RK_CS1(R4) ;CLEAR DRIVE 
$° 30 4 1496 BsBy DM watt “WAIT FOR FUNCTION TO COMPLETE 
F 7 1497 50$: aR RR” CS1_M_CERR,RK £1 (R4) :CLEAR CONTROLLER ERRORS 
F if 1438 IE,RK_CS1(R4) ;ENABLE DEVICE INTERRUPTS 


dD 11 
~ R = RK611-RK06/R 07 15-SEP-1984 AX/VMS M v04-00 P 30 wef 
ira tt RK611=RK06/RKO aati ia INTERRUPT RO e-$EP =}382 83:75 :¢ YORIVER. SRC IDMDRIVER. MAR; 1 oe | 


41 + .SBTTL RK611-RKO6/RKO7 UNSOLICITED INTERRUPT ROUTINE | 
4 ; : DM_UNSOLNT = RK611-RK06/RKO7 UNSOLICITED INTERRUPT ROUTINE 
41 1505 : THIS ROUTINE I$ CALLED WHEN AN UNSOLICITED ATTENTION CONDITION IS DETECTED FOR 
rh } : AN RKO6 OR RKO? DRIVE. 
41 1308 ; INPUTS: | 
41 1 p : R4 = ADDRESS OF CONTROL STATUS REGISTER 1. 
‘| ; RS = DEVICE UNIT UCB ADDRESS. | 
41 18 ; OUTPUTS: | 
41 1515 : If VOLUME VALID IS CLEAR, THEN SOFTWARE VOLUME VALID IS CLEARED. THE 
41 1 16 ; UNIT STATUS IS CHANGED TO ONLINE AND THE DRIVE TYPE AND PARAMETERS ARE 
41 1517: CLASSIFIED. | 
ett ee | 
41 1520 DM_UNSOLNT: BK611-RKOG/RKO7 UNSOLICITED INTERRUPT | 
64 a5 10 ag 41 1521 BISW #UCBSM ONLINE ,UCBSW_ sts(ke) : -SET UNIT ONLINE | 
FEFB 3 45 15 : BSBW CLASSIFY DRIVE. T YPE 
OE 64 AS 0B £1 0848 15 BBC PUCBSV _VALID,UCBSW sT$(R5),108 IF CLR VOLUME SOFTWARE INVALID 
OA AS 0080 BF 83 84 1524 BITW  #RK_DS~M_DRDY,RK_DS(R4) : DRIVE READY BIT 
0 12 0853 1525 BNEQ “IF NEQ YES 
64 AS 0800 BF AA 0855 1526 BICW  #UCBSM_VALID,UCBSW_ sTs(R5) ) ;CLEAR SOFTWARE VOLUME VALID 
05 0858 1527 10$: RSB 
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RK 
ROLLER READY DRIVER. SRC IDMDRIVER.MAR; 1 (1) 
9 .SBTTL WAIT FOR CONTROLLER READY 
; DM_WAIT = WAIT FOR CONTROLLER READY 

$ THIS SUBROUTINE IS CALLED TO POLL THE RK611 CONTROLLER FOR READY. A MAX- 
4 ; IMUM OF APPROXIMATELY 20 US ELAPSES BEFORE CONTROL IS RETURNED TO THE 
: DM_WAIT: :WAIT FOR CONTROLLER READY 

mOvVa — RO, = (SP) SAVE 

40 DSBINT [DISABLE INTERRUPTS | 
4 TIMEWALT #2, HRK_CS1_M_RDY.RK_CS1(R4) | 
4¢ ENBINT S ENABLE INTERRUPTS | 
44 


MOVa (SP)+,RO ;RESTORE RO, R1 
RSB 


| 
; | 
| 
| 


= RK611-RK06/RKO7 DISK DRIV SEP-1984 247: AX/VMS Macro V04-00 Page 3 
exert DISK CONTROLLER RIVER DISPATCH "378 oats § 4558 DRIVER. SRCIDMDRI IVER.MAR; 1 . if, 
91 46 : ~SBTTL RK611 DISK CONTROLLER INTERRUPT DISPATCHER 
48 : DMSINT = RK611 DISK CONTROLLER INTERRUPT DISPATCHER 
31 1 : THIS ROUTINE 1S ENTERED VIA A JSB INSTRUCTION WHEN AN INTERRUPT OCCURS | 
4 : ON AN RK611 DISK CONTROLLER. THE STATE OF THE STACK ON ENTRY IS: | 
91 1 ; O(SP) = ADDRESS OF IDB ADDRESS. 
91 1554: 4(SP) = SAVED R2. 
91 1555; (SP) = SAVED e 
91 1 é ; (SP) = SAVED R4. | 
4 1 ; (§P) = SAVED RS. 
11 : ; (SP) = INTERRUPT PC. 
4 23 4(SP) = INTERRUPT PSL. | 
31 6 ; INTERRUPT DISPATCHING OCCURS AS FOLLOWS: | 
91 1 8 ; IF THE INTERRUPTING CONTROLLER IS CURRENTLY OWNED AND THE OWNER 
91 1564 ; UNIT IS EXPEC AN INTERRUPT, THEN THAT UNIT IS DISPATCHED FIRST. 
91 1565: ALL otnen XONITS Wane DISPATCHED BY READING WHE ATTENTION SUMMARY 
91 1 66 ; REGISTER AND SCANNING FOR UNITS THAT HAVE ATTENTION SET. AS EACH 
0891 1567 ;: UNIT IS FOUND, A TEST IS MADE TO DETERMINE IF AN INTERRUPT IS 
91 1368 ; EXPECTED ON THE UNIT. IF YES, THEN THE DRIVER IS CALLED AT ITS 
0891 569 : INTERRUPT RETURN ADDRESS. ELSE THE DRIVER IS CALLED AT ITS UNSOL- 
0891 1570: ICITED INTERRUPT ADDRESS. AS EACH CALL TO THE DRIVER RETURNS, THE 
0891 1571 ;: ATTENTION SUMMARY REGISTER IS REREAD AND AN ATTEMPT IS MADE fO FIND 
0891 1378 ; ANOTHER UNIT TO DISPATCH. WHEN NO UNITS REQUESTING ATTENTION REMAIN, 
a9 1376 3 THE INTERRUPT IS DISMISSED. 
91 1575 ° 
Hf 1376 DMSINT:: ;RK611 DISK CONTROLLER INTERRUPT DISPATCHER | 
53 008 09 891 157 MOVL a(SP),R3 [GET ADDRESS OF I | 
54 63 OD 95 1 £8 MOVL  IDBSL_CSR(R3),R GET ADDRESS OF CONTROL STATUS REGISTER 1 
55° 046 83 OD 98 157 MOVL {BSL “GUNERERSS RS [GET OWNER UNIT UCB ADDRESS 
0 1 9¢ 1580 BEQL iL EQL NO OWNER 
3D 64 AS 01 £4 O89E 1581 BBSC $#UCBSV_INT,UCBSW_STS(R5),30$ :IF SET, INTERRUPT EXPECTED 
64 8000 BF 80 As 15 2 10$: MOVvW aR CST W_CERR »RR_CS1(R4 as “CLEAR CONTROLLER | 
52 OF A4 3C O8AB 15 MOVZWL KAS(R (RZ) sREAD ATTENTION SUMMARY REGISTER | 
52 52 08 08 FA AC 13 4 FFS ; of Ro Re [FIND FIRST UNIT REQUESTING ATTENTION 
11. «12 1585 BNEQ $ [IF NEQ UNIT FOUND 
64 40 BF 1 é MOVZ7BW #RK_CS1_M_IE,RK_CS1(R4) ;ENABLE DEVICE INTERRUPTS 
4 ¢ 1 ADDL [CLEAN STACK 
— 7D Al : MOV (SP)+,R SRESTORE REGISTERS 
— 7D } MOVQ = (SP) +.R : | 
4 8 7 co 1 MOV  (SP)+-R ; 
0 C3 (1591 REI : 
52 9 C (4 1 3 20S: SUBL 9-82 [CALCULATE UNIT NUMBER 
08 A4 8 (7 159 MOV) R2,RK_CS2(R4) :SET UNIT NUMBER 
55 18 A342. OD CB 1594 MOVL DBSL-UCBLST(R3)(R2I,R5 :GET ADDRESS OF UCB | 
79 «1 DO 1595 BEQL GIF EQL NO CORRESPONDING UNIT 
64 01 ooce 3 A p 36 B1su3 UCBs on. DTYP(RS) ,#F NOP! TARR cst CRG) SELECT. DRIVE AND GET STATUS 
6D 64 A 1 38 pB 1 38 BCC oucesy. INT, UCBSW $3505) 908 -1F CLR, INTERRUPT NOT EXPECTED 
0093 ¢ ; 91 : 99 30S: cHPe ‘ DF_READHEAD UCB CEX(R ) ) she AD HEADER FUNCTION? 
OF6 (CS 1406 B E 1691 MOVW  RK_DB(R4),UCBSW_DM “pB(RSS “SAVE SECTOR HEADER INFORMATION 
0F6 (5 WAG B ED 1602 MOVW RK~DB(R4),UCBSW"DM~DB+2(R5S ; 
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04-000 KOI DISK CONTROLLER INTERRUPT DISPATCH 'S-SEP=1984 00:12:85 EDRIVER.SRESDMDRIVER.MaR:1 "2% fay 


ONTRO 
he te: 14 a : F3 1 - MOVU es Kets al Re DM. DB+4(R5) 7 
ss 


1 MOVAB eacst (R ee ADDRESS OF CONTROL STATUS REGISTER 1 
CE i FC 1 MOVAB ut _DM ce RS) ,R3 :6 T T ADDRESS 0 OF REGISTER SAVE AREA 
1 e MOV R teattits ROL STATUS REGISTER 1 
: 4 16 BLSS 1208 re ies, ENCOUN NTERED 
78 68 AS 0} 6 16 BBS #UCBSV_DIAGBUF ,UCBSW_ nevi ) 208 :IF SET, DIAGNOSTIC BUFFER 
uae : 9 16 CMPB ACOF PRCKACE.« NowLEDGE™ FUNCTION? 
F 12 0910 161 BNEQ tit ’ BRANCH IF NOT. 
OA AG §6=6 0080 BFS (091 1616 BITW RK DS_M_DRDY,RK_DS(RG) ; DRIVE READY BIT SET? 
$9 7] 918 161 BEQL 1208 ; ERROR IF NOT. 
89 F 91A 161% BISW  #RK DS_M_DRDY,- ; SAVE READY BIT IN UCB. 
D f gif 161 UCBSwW_OM-pS(R5) 
80 9 1616 508 MOVW = (R2) #7 (RB) 4 TSAVE WORD COUNT REGISTER 
63 6 3 924 161 MOVW = (R2), (R3) i SAVE BUFFER ADDRESS REGISTER 
53 104 D 0927 1618 60$ mova ucest FR3(RS),R3 REST ORE DRIVER CONTEXT 
oC 85 90B (161 JSB aucesct pPCCRSS ICALL DRIVER AT INTERRUPT RETURN ADDRESS 
53 Bf DO O92E 16 : MOVL a@(SP),R [GET ADDRESS OF IDB 
54 ‘ DO (09 16 MOVL  IDBSL CSRCR3) R4 “GET ADDRESS OF CONTROL STATUS REGISTER 1 
64 090 F BO 0935 1 : 708 MOVW #RK_CS1_M_CERR,RK_CS1(R4) ;CLEAR CONTROLLER 
08 AG 54 AS BO 093A 16 MOVW UCBSW_URIT(RS) .RK~CS2(R4) set UNIT NUMBER 
64 0S o0cc C5 Ad O93F 1604 BISW3 UCBSW"DM_DTYP(AS) #F_DRVCLR'1,RK_CS1(R4) ;CLEAR DRIVE ERRORS 
FFI4 30 945 1625 BSBW 430s DM_WATT ;WAIT FOR CONTROLLER READY 
od He (te es Je ~ ee : 
FEF! 30 0940 16 : tt BSBW sé UNSOLNT SCALL UNSOLICITED INTERRUPT ROUTINE 
5300 af D0 0950 16 MOVL a(SP),R GET ADDR ESS OF IDB 
54 6 954 1630 MOVL Test CSR(R3 ADDRESS OF CONTROL STATUS REGISTER 1 
64 8000 BF B83 0957 1631 BITW K_CS1_M_ ERA RK _estcras’ CANT ERROR CONDITION PRESENT? 
7 13 095c 16 ¢ BEQL *OS -1F EQL NO 
08 Aé iw 0 : aH 16 ; OV #Rx_ CS2_M_SCLR,RK aCS2(R4S ; SCLEAR ENTIRE RK611 SUBSYSTEM 
64 0405 BF é 965 1635 100$: MOVW #RK_CS1_M_CDT!F_DRVCLR!1.RK_CS1(R4) {CLEAR RKO7 DRIVE 
FEEF 096A 16 6 BSBU = DM_QAIT™ :WATT FOR FUNCTION TO COMPLETE 
8 96D 16 TSTwW = RKCS1(R4) : SUCCESSFUL COMPLETION? 
F 096F 16 8 BGEQ 1108 “IF GEQ YES 
64 8000 8F B80 0971 16 MOVW  #RK_CS1_M_CERR,RK_CS1(R4) ;CLEAR CONTROLLER 
08 A4 é BO 0976 1640 MOVW Re RK cS2TR4) sSET UNIT NUMBER 
64 097A 1641 mOVW eORDELR! 1 RK_CS1(R4) i CLEAR RN RKOG DRIVE 
FEDC 0970 166¢ BSBW on “WALT WAIT FOR FUNCTION TO COMPLETE 
FF 9 9 164 1108: BRW 10 - 
ry 1644 120$: MOVW (R2)+,(R3)+ [SAVE WORD COUNT REGIST 
BO 0986 1645 MOV) = (R2) +. (R3)4 [SAVE BUFFER ADDRESS REGISTER 
BO 05 1666 MOVW (R2)+.(R3)4 SSAVE DESIRED SECTOR/TRACK ADDRESS REGISTER 
BO O098C 164 MOVW (R2)+.(R3)¢ TSAVE CONTROL STATUS REGI 2 
BO 098F 1648 MOVW (R2)+.(R3)¢4 SSAVE DRIVE STATUS REGISTER 
8 164 MOVW (R2)+.(R3)¢ SSAVE ERROR REGISTER 
BO 099 1650 MOVW  (R2) +. (R3)¢ [SAVE ATTENTION SUMMARY/OFFSET REGISTER 
BO 0998 16 MOVW (R2)4+.(R3)¢4 [SAVE DESIRED CYLINDER ADDRESS REGISTER 
CO 0998 16 ; ADDL  #4,R2 SPOINT TO MAINTENANCE REGISTER 1 
BO 099E 16 MOVW (Rd) +, (R3)¢ [SAVE MAINTENANCE REGISTER 1 
90c4 C BO O9A1 1654 MOVW = (R2) +. UC BSW -ECY (RS) TSAVE ECC POSITION REGISTER 
(6 B A6 1655 mOVW = s(R d+ UCBSH- EC2(R5) TSAVE ECC PATTERN REGISTER 
BO O9AB 16 : MOVW = (R2) +. (R3)4> i SAVE MAINTENANCE REGISTER ; 
04 0006 ¢ FT 961 16 BBC. ste es8) “MOS ,UCBSW_DM_CESURS) oT 40S. TF CLR, NO-MULTI-DRIVE SELECT 
88 A4 620) «80 «(0987 «16 § MOVW ate “A7SC ity RK *esbC ab}: CLE ae ENTIRE SUBSYSTEM 
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-SBTTL RK611 DISK CONTROLLER INITIALIZATION 
DM RK611_INIT = RK611 DISK CONTROLLER INITIALIZATION 


; THIS ROUTINE IS CALLED VIA A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
A POWER RECOVERY RESTART TO ALLOW INITIALIZATION OF RK611 DISK CONTROLLERS. 


; INPUTS: 
RO = SCRATCH. 
Ri = SCRATCH. 
Re = SCRATCH. 
R5 = SCRATCH. 
R4 = ADDRESS OF CONTROL STATUS REGISTER 1. 
RS = ADDRESS OF CONTROLLER IDB. 


ALL INTERRUPTS ARE LOCKED OUT. 
; OUTPUTS: 
THE RK611 CONTROLLER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 


DM_RK611 INIT: 

lov CS2_M_SCLR,RK 
MOVZBW PRK CSILMIIE,RK_C 
RSB 


22323 sa sasasssssssssssesess 
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1 is ~SBTTL RK611 Autoconfigure Unit Delivery Routine 
92 ; DMSDELIVER - RK611 Autoconfigure Unit Delivery Routine 


This routine is called by the SYSGEN AUTOCONFIGURE command to determine 
: —— oy Ri emace to configure. It is called once for each possible 
. u 


INPUTS: 
R3 Address of controller IDB, or zero if none exists 
RG Address of CSR 
RS te jas" which this routine must decide whether or not to 
ur 
R6 Base addres of UNIBUS adapter 1/0 space 
R? Address of AUTOCONFIGURE ACF 
1 laa of UNIBUS ADP 
= 


OUTPUTS: 
RO TRUE ==> configure unit indicated in R5 
FALSE ==> do not configure unit indicated in R5 


Interference with ‘‘normal’’ data transfers is a major concern for this unit 
delivery routine. Since it is called without the controls of the Q10 
; mechanism, the state of data transfers when it is entered is unpredictable. 
Experience has shown that conditions are so unpredictable that the only 
; option open to this routine is rere tag all current activitiy to be retried. 
To this end, all UCBs Listed in the IDB passed to this routine, if any, are 
made to appear as if a power failure has occured. Having done this, the 
retrying of cerventty active opeations is relative assured. We do not 
simulate a power failure to the extent of calling the controller and unit 
initialization routines; after all, this routine determines the state of the 
controller and its units quite completely. 


Bete Ge Ge Se Gs Se Ge Ge Se Se Se Ge Se Se Ge Se Ge Se Ge Ge Ge Se Sse Ge Ge Se Ge Ge Ge Ge Sete Se 
+ 
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8 DMSDELIVER: 
55 05 TSTL R5 : Is this the first call for this 
O¢ \s 9 BNEQ 10$ :; for this controller? If so, get 
2 1 9 BSBB GET_UNITS 3; complete units present information. 
50 24 A7 01 5 EF O9C 10$ EXTZV “i,- : For each unit, get presense data from 
9D ACFSL_OLVR_SCRH(R7), RO ; information prepared by GET_UNITS. 
05 M$ RSB ; Then, return to AUTOCONFIGURE. 
9D4 3+ 
9D4 3; NB: the use of the one-time get-units-information routine GET_UNITS reduces 
9D4 ; to one the number of times we must fool with the controller and thus our 
9D4 3 pontential for munging ‘‘normal’’ opeations. It also insures that a 
9D4 3; controller munging occurs at the same time that a power failure is 
9D4 3; simulated. 
904 3= 
9D4 
9D4 GET_UNITS: ; 
9D4 DSBINT ; Insure no interruptions. 


3+ 
; SIMULATE A POWER FAILURE ON ALL KNOWN UCBs 
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aw 
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DA 1747 ;- 
3 3 30k 174 TSTL 8 ; Is there an 108? If not, the RK611 
DC 174 pra 500$ 3 must be inactive. 
50 OCA 9DE 17 MOVZWL IDBSW_UNITS(R3) 0 ; Get count of UCBs to test. 
5116 A34 p 960 1751 108: MOVL {BSL -UCBLST~4(R3) ROJ, R1 ; Get @ UCB address. 
1 9E7 17 BEQL ; Branch if not really a UCB address. 
64 Al 30 AB O9E9 17 BISW  #UCBSM_POWER, UCBSW_STS(R1) ; Pretend power failure. 
64 Al B 44 Mf : BITW BcUCBSA {NTI UCESA_TIA>, - ; Test for timeout in progress. 
13 O9F1 17 § BEQL 158 a“. ; Branch if no timeout in progress. 
64 Al AA O9F3 17 BICW  #UCBSM_INT, UCBSW_STS(R1) ; Clear interrupt expected. 
64 Al O01 AB OOF? 17 8 B1SW #UCBSM_TIM, UCBSW_STS(R1) ; Indicate that a timeout is expected 
6C Al D4 O9FB 17 CLRL ucest BuETIMCR1) ; immediately. 
€1 50 F5 Ha 1760 19$: SOBGTR RO, 10$ ; Loop through all UCBs. 
AOL 4762 34 
A $ V 
wrt 1768 DISCOVERING WHICH UNITS ARE PRESENT 
24 A? 4 not 1765 500$: CLRL ACFSL_DLVR_SCRH(R7) 3; Clear all units present bits. 
29 4 QA04 1706 CLRL RO : Initialize unit number. 
FES 0 QA06 1767 600$: BSBW DM_WAIT ; Wait for controller ready. 
64 8000 gf BO 0A09 1768 MOVW  #RR_CS1_M_CERR, RK_CS1(R4) ; Clear controller. 
08 AS «=650)—Ss BO sCéOOAO 176 W = =RO, RK_CS2(R4) ; Set unit number. 
64 01 0 QOAI2 1770 MOVW #1, RK_CS1(R4) ; Select drive and get status. 
FE4G A115 1771 BSBW OM ; Wait for controller ready. 
08 AS) «61000 8F §=B3COAIB O17 BITw  #RR_CS2_M_NED, RK_CS2(R4) ; Nonexistent drive? 
ai AIE 177 BNEQ 69 3; If nonexistent, no more to do here. 
00 24 A7 Bee A 1774 BBSS RO, ACFSL_DLVR_SCRH(R7), 610$ ; Set device present bit. 
64 8000 i BO OA25 1775 610$: MOVW  #RK_CS1_M-CERR] RK_CS1(R4) ; Clear controller. 
08 A4 0 B60 OA2ZA 1776 MOVW = =RO, RK_CS2(R4) ; Set unit number. 
0405 8F 0 OA 1777 MOVW #*X405, RK_CS1(R4) ; Clear drive as a RKO7. 
FE26 0 OA 1078 BSBW uw ; Wait for function to complete. 
64 65 OA 177 TSTW RK_CS1(R4) ; Controller errors? Errors mean its a 
cad A 17 BGEQ 9 ; RKO6 and must be cleared differently. 
64 8000 8F B80 OA3A 1781 MOVW #RK_CS1_M_CERR, RK_CS1(R4) ; Clear controller. 
08 A4 BO OA3F 17 é MOVW RO, ~RK_CS2(R4) ; Set unit number. 
64 8 8 ASS 17 MOVW $3. RK_CS1(R4) ; Clear drive as a RK06. 
BC 50 Te. AS6 1784 690$: AOBLEQ #7, RO, 600$ 3; Loop over all possible drives. 
FEOF 3 ASA 1785 BSBW M_WAI ; Wait for last operetten to complete. 
64 8000 8F BO OASD 17 6 Vi  #RR_CS1_M_CERR, RK_CS1(R4) ; Clear controller. 
nag 17 ENBINT ; Restore previous interrupt state. 
05 Ae? i? RSB : Return to main unit-deliver routine. 
A 
Azo 1790 DM_END: ;ADDRESS OF LAST LOCATION IN DRIVER 
A 1791 
0AS6 1792 - END 
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: R 02 DM_M_ECI 
. £9909060 DR-REGDUMP = OHNO N00) ek 
eeeeeeee x DA_RKOX INIT 784 R 
eeeeeere DM-RKOIT_INIT 
eeeneree DM_STARTTO il R 
eereenee x DM _UNSOLNT 41 R 
eeeereer x DM_V_OCK = 1 
eeeereee PR AV-ECC DEFER = 
0000 A7 R Oe aae ct = 3 
“Hee os TREAT, = Sounuess 
= 00000008 DPTSIRY TAB s % R 
= 00000000 DPTSM_SVP = 02 
= 00000006 DPTSREINITAB $9 R 
= 00000008 Bevel 0000000 R 
; = 0000000C DT$ RKO 49h 33 R 
F7REC = 0000000 DT$~RKO = 00000001 
DF “RELEASE = 000000 5 DYNSC_CRB a ttt 
CDF “RETCENTER = 000000 DYNSC"ODB = 9000000 
CDF “SE = 00000007 DYNSC_OPT = 00000006 
RAT ae = 90900008 prosecute = 99000016 
CDF URI TECHECK = 90000081 ERBSL_DV_REGSAV a900z6h , 
CDF TURITEDATA a tstttcy ENBXIT  Boo00s0e R 
CWECKRETRY. = 000000 ERC SDEVICTRO eeeeeses x 08 
CHECKXT ' 0 90 R 0 EXESA vi geeerenre x 03 
CRESL INT 00000 41 R 83 EXES BORTIO eerereee§ XK 0 
SATATREC D = D000¢ 4 exesel. TENUSEC geeeeree x 83 
K 00000 rs R 03 GL- MeOcL AY geenaeeeee x 03 
poeeragnes = 0000000 EXESLCLDSEVALID gerereen x 0 
DDBSL~ D = 00000 3 EXES NEPARM eeerenee x 
DEFERTeCC = 9000¢ EXESSENSERODE ee ae 
BE VERT AVL DOUUU D R 03 paeeeetenaee eeeeeeese xX 
DEVSM"ELG = QUOQOQUUUEF EXEC Focerio geenreene x 
DEVSM"FOD s 0040 ve D0 FATACERR N OOOOIDE R 8 
DEVS” IDV = YUU 040 4! FDISPATCH 000 348 R 0 
DEVSMNNM = 04000000 FEXH 43 R 
DEVSMODV = 00000200 FEXL 406 R 0 
DEVSM”RND . 08000000 F TAB 0 rst R 
DEVSA”SHR = pppypone FUNCTAB_LEN = 9900000 5 
DRSDELIVER 90000000 RG = F AVAILABLE . tes 
a NT AnnOL F NOP 0 
DM_DTYPE AAnOL 74 R F _OF F SET 4 
DMEND POReR Le? F"PACKACK : 8 
DOM_FUNCTABLE AMONODE R F LREADDATA = 1 
DM_IND_M_OF = WV OO fi ‘ F LREADHEAD S 14 
DM_ IND V_OF = Q 0¢ 00 F LRECAL = A 
a K = taunt F ope ease sad 0 
C = 5000000 PrSeeKe -* C 
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PSECT nome Allocation PSECT No. Attributes 
e 0000 0000 SHR NOEXE NO NOWRT NOVE 

S EXE RD WRT NOVE 
ROL OGUE 0000087 SHR EXE RD WRT NOVE 
RIVER EXE 


-) NOPIC USR ON REL RD WRT NOVE 
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! Performance indicators ! 


we moeneceeocewessosaceoce $ 


Phase Page faults CPU Time Elapsed Time 


prteet ‘eet ten ' 144 :00: 9? : 0:04:9 
ommand processing 138 : : < : i 


Pass 1 
Symbol table sort 
38 
ate 
Mi 0; 9:98 
Tee varking oes} fate was 2250 pages. 


ass :00: 
Symbol table output 4 :00: 
Psect synopsis output :00: 
Cross-reference output 8 
Assembler run totals 115 0 
bytes (321 pages) of virtual memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space a eeeaee to hold 2395 non-local and 84 local symbols. 
1792 source Lines were read in Pass 1, eo 23 object records in Pass 2. 

56 pages of virtual memory were used to define 53 macros. 
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! Macro Library statistics ! 


bee wer sect antes von eer ema ns + 


Macro Library name Macros defined 
“$523 SDUACE: SYS.OBJJL1B.MLB; 1 37 
$255S$0UA28: CSYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 47 


2514 GETS were required to define 47 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DMDRIVER/OBJ=O0BJ$:DMDRIVER MSRC$:DMDRIVER/UPDATE=(ENHS:DMDRIVER) +EXECMLS/LIB 
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